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ABSTRACT 


Tins  report  documents  the  use  of  a  ship  motions  prediction  appiica- 
tjcns  manager  (PREDICT)  for  use  on  a  personal  computer.  PREDICT 
can  generate  both  frequency  and  time  domain  output  from  a  single  ship 
input  file.  Hardcopy  time  histor}''  plots  arc  also  available.  This  report 
provides  explanations  of  menu  choices  and  examples  of  typicai  usage.  The 
prediction  programs  used  by  PREDICT,  the  Standard  Ship  Motion  Pro¬ 
gram  (SMP),  Simulation  Time  History  Program  (SJ'H)  and  Access  Time 
History^  Program  (ACTH),  are  fully  documented  in  the  given  references. 

This  report  also  documents  the  personal  computer  version  of  the  Standard 
Ship  Motion  Program  (SMP93-PC). 

ADMINISTRATR'E  INFORMATION 

This  investigation  was  sponsored  by  the  Naval  Undersea  Warfare  Center,  New  Lon¬ 
don  Laboratory,  under  Program  Element  63553.  The  work  was  performed  at  the  Naval 
Surface  Warfare  Center,  Carderock  Division,  during  FV1993  under  work  unit  number 
1 -1541-802.  The  DN  number  is  DN502204. 

INTRODUCTION 

The  report  describes  a  persona!  computer-based  ship  motion  prediction  applica¬ 
tions  manager,  PREDICT,  which  provides  both  frequency  and  time  domain  predic¬ 
tions.  PrtEDICT  uses  two  sub-application  managers  to  run  the  Standard  Ship  Motion 
Program(SMP93-PC)*‘ the  Simulation  Time  History  Program(STH)^,  and  the  Ac¬ 
cess  Time  History  Program!  ACTH  that  make  motion  predictions.  PREDIC  l  also 
provides  utilities  to  create  aiui  edit  irijuil  files,  and  to  view  and  plot  output  filer. 

Tiie  Standard  Ship  M{>!  ion  Program  (SMP)  is  a  frequency  domain  motion  prediction 
program.  It  calculates  tran^iat lona!  and  angular  ship  responses  in  irregular  seas  for  a 
range  o(  ship  headings,  ship  s[)eecJs.  and  modal  wave  periods  at  specific  wave  heights. 
The  Standard  Ship  ^IolIon  Program  Salvesen,  Tuck,  and  Faltinsen  strip  theory'* 
without  end  effect  terms  llea\c.  pitch,  and  surge  are  linear  with  respect  10  wavf* 
heigbit.  Roll,  sway,  and  yaw  ar('  non-lmear  with  respect  to  wave  fieight  and  use*  an 
iterative  caiculation  procedure  with  roll  angle-dei)endenl  viscous  damping.  In  this 
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report,  references  to  a  specific  SMP  version  will  have  the  year  attached,  e.g.  SMP84, 
whereas  references  to  aspects  common  to  all  versions  will  be  just  SMP. 

Both  STH  and  ACTH  are  time  domain  motion  prediction  programs.  The  Simulation 
Time  History  program  uses  the  SMP  origin  transfer  function  file  to  caJculate  ship  time 
histories  at  the  origin.  The  Access  Time  History  program  uses  the  origin  time  histories 
to  generate  time  histories  for  any  point  on  the  ship.  The  time  domain  preserves  the 
pheuse  relation  between  motions  which  is  lost  in  the  frequency  domain.  As  time  goes  to 
infinity,  the  time  doniaJn  statistical  values  approach  the  frequency  domain  results. 

Rather  than  repeating  documentation  for  SMP,  STH,  and  ACTH,  this  report  deals 
exclusively  with  the  PREDICT  application  managers,  their  menu  choices,  and  organi¬ 
zation.  References  1.  2.  and  3  deal  with  the  theory  behind  SMP,  STH,  and  ACTH.  An 
example  run  is  provided  to  show  the  typical  path  from  SMP  input  file  to  ACTH  time 
history  output  files. 

Appendix  A  documents  the  main  changes  to  SMP84  for  t!ic  personal  coni])uU‘r 
version  of  the  Standard  Ship  Motion  Program  (SMP93-PC).  Appendix  B  provides  an 
uvtfi  view  of  the  applicrttions  marii^gers  in  terms  of  directory  structure  and  file  location 
and  function.  Appendix  C  describes  the  ship  specific  input  file  for  STH  applications 
manager  (STHAM).  Appendix  D  is  a  listing  of  the  source  code  for  SMP93‘PC. 

This  manual  uses  various  typefaces  to  highlight  important  points  and  the  relation¬ 
ships  between  sections.  The  typewriter  f  ortt  simulates  a  personal  computer  font  and 
indicates  DOS  file  and  directory  names,  as  well  as,  what  the  user  sees  on  the  screen, 
e.g.  EB62G8.HPL.  The  bold  face  indicates  manual  section  names,  e.g.  INTRODUC¬ 
TION.  The  Italic  face  indicates  an  important  concept  and,  in  file  names,  designates  a 
wild  CHrd  or  variable.  Mam  program  names  are  m  capital  letters,  e.g.  SMBEDll  . 

PREDICT  OVERVIEW 

PREDICl  has  three  mam  brandies:  frequency  domain,  time  domain,  and  data 
plotting.  PREDICT  uses  SMP93-PC'  to  make  frequency  domain  predictions.  Taking 
the  frccjuenc}'  domain  shi)>  rcsj)onse  transfer  functions,  the  user  with  PREDICI'  runs 
S'l'H  and  ACl'H  to  make  time  domain  ship  motion  predictions.  Pigiire  1  shows  thr 
orgamza.lional  structure  and  winch  ];rograins  are  associated  with  which  branch. 
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H INDICT  application?  manager  organizational  structure. 


PREDICT  uses  three  sub-applications  managers  to  run  the  three  branches.  The 
frequency  domain  sub-applications  mauager  is  SMPAM  and  it  runs  SMPMAIN.EXE 
which  handles  the  menus  described  in  SMP  APPLICATIONS  MANAGER,  page  5. 
The  time  domain  sub-applications  manager  is  STHAM  and  it  runs  STHMAIN.EXE. 
STH  APPLICATIONS  MANAGER,  page  16.  describes  the  menu  choices  asso¬ 
ciated  with  STHAM.  CLTAM  is  the  plotting  sub- applications  manager  and  it  runs 
CLTMAIN.EXE  and  DLPLOT.EXE.  Data  Analysis  and  Plots,  page  25,  deals  with 
the  menu  choices  for  CLTAM. 

Before  running  PREDICT,  the  user  should  s^'t  up  a  directory  structure  siir.der  lo  the 
one  described  in  Appendix  B.  The  user  needs  to  create  executable  and  input  directories 
and  subdirectories,  as  well  as  install  tlie  commercial  software  required.  PREDICT 
creates  the  output  subdirectories  as  it  needs  tliem.  The  directories  to  create  are  in 
Table  1.  The  user  created  directories  can  be  named  any  legal  DOS  name,  though  the 
examples  in  this  manual  use  the  default  names.  They  can  be  on  any  accessible  disk 
drive.  The  iin])orlant  item  is  t  hat  the  execut  able  directories  have  t  he  right  files  in  thorn: 
otherwise,  PREDICT  will  not  be  able  to  find  the  programs  to  run. 


Table  1.  PREDICT  directories  to  create  and  their  function. 


Option  Name 

Name 

Description  | 

SMP  program  path 

SMP 

SMPAM  executables  and  he^p  subdirectory,  j 

SMP  input  path 

SMPIKPUT 

SMP  input  files. 

SMP  output  path 

SMPOUTPT 

SMP  ASCII  output  files. 

SMP  data  path 

SMPDATA 

SMP  binary  output  files  used  by  STHAM. 

1  STH  program  path 

STIl 

STHAM  executables  and  lielj)  subdirectory. 

STH  data  path 

ST  11  DATA 

STH  output  subdirecloi  ios  and  files. 

COLLECl  data  path 

DAI' A 

ACTII  output  subdirectories  and  files. 

COLLECT  prog; am  path 

COLOCT:)] 

C  LT  iM  executables. 

Each  of  the  sub-applications  managers  has  a  data  file  which  contains  tlie  directory 
paths  for  the  different  input  and  output.  These  files  are:  SMl^S^  S.l  f^X.  STHSVS.TEX, 
and  CLTS\*S.1'EX.  The  options  for  these  files  are  e.xphiined  under  the  SMP  and  STH 
descriptions.  Tliough  files  can  be  changed  from  within  ITIEUICT,  rnis-defining  the  run 
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paths  will  cause  PREDICT  not  to  run.  Appendix  B  describes  in  more  detail  the  file 
dire^ucory  structure  and  file  locations. 

The  only  input  needed  to  start  is  an  acceptable  SMP93-PC  input  file.  It  should  be 
located  in  a  subdirectory  of  the  SMP  input  directory.  This  subdirectory  is  referred  to 
as  a  Ship  Type  when  selecting  input  files,  because  typically  ships  of  a  given  type  are 
grouped  together. 

The  input  file  name  comprises  a  rooi^  variant^  cycle  number^  and  an  extension  of  INP. 
For  example,  DD965H6.INP  is  a  representative  input  file  of  the  DD963  class  destroyer. 
The  root  is  the  main  file  designation  and  is  typically  the  ship  class  and  number,  in  this 
case,  DD965.  It  has  a  maximum  of  five  characters.  The  variant  is  a  single  letter  that 
serves  to  distinguish  major  changes  to  a  ship  input  file,  e.g.  different  draft  or  loading 
conditions.  The  cycle  number  indicates  the  number  of  runs  made  wutli  a  particular 
input  file.  The  example,  DD965H6.INP  has  DD965  as  a  root,  H  as  a  variant,  6  as  the 
cycle  number,  and  an  extension  of  INP, 

PREDICT  names  and  creates  all  the  output  subd  rectories  automatically.  Output 
file  and  directory  names  are  based  on  the  SMP  input  file  name.  SMP  output  files  are 
split  between  output  and  data  directories.  In  the  output  directory,  there  are  Ship  Type 
subdrectories  and  files  have  the  root,  variant  and  cycle  of  the  input  file.  In  the  data 
directoi  v.  tiie  files  keep  just  the  root  and  variant  and  are  put  in  subdirectories  named 
after  the  input  file  root.  The  STH  output  files  arc  put  in  subdirectories  that  have 
SO  added  to  the  root  and  variant,  e.g.  SCDD955H.  The  ACTH  output  files  arc  put  in 
subdirectories  that  have  SP  added  to  llie  root  and  variant,  e.g.  SPDD965H. 

The  example,  page  2S.  details  the  process  for  generating  frequency  domain  predic- 
lions,  then  lime  domain  predictions,  and  finally  plotting  the  data.  It  uses  the  default 
directory  structure  and  assumes  knowledge  of  it. 

SMP  APPLICATIONS  MANAGER 

The  SMP  Applications  Manager  (SMPAM)  provides  utilities  that  make  running 
SMP  and  generating  origin  Iransfi.T  function  filc.s  (easier.  I'hcse  utilities  allow  the  selec* 
lion  of  a  h\u\f  input  file,  editing  oi  viewing  the  inf)ut,  file,  preliminary  checking  of  tlu* 


input  file  via  a  hydrostatics  check  and  offset  plots,  running  SMP,  and  viewing  output 
files.  There  is  also  online  help  on  the  use  of  SMPAM. 

SMPAM  MAIN  MENU  OPTIONS 

This  section  describes  the  main  menu  options  of  the  SMP  Applications  Manager 
(SMPAM).  Details  of  SMP  input  format  and  theory  is  in  References  1  and  2.  See 
Table  2  for  a  listing  and  brief  description  of  the  main  menu  selections. 

Table  2  SMP  Applications  Manager  main  menu  options  and  description 


Number 

Selection 

Description 

1 

HELP 

Online  help  for  SMP  Applications  Manager. 
See  Figure  2  for  HELP  options. 

2 

SMP  System  Specification 

Sets  default  paths  and  directories  for  locat¬ 
ing  data  for  SMP  runs. 

3 

1 

Change  SMP  data  path 

Changes  SMP  input  path  without  exercising 
selection  2. 

4 

Change  ship 

Changes  ship  directory,  variant,  and  cycle 
without  exercising  selection  2. 

5 

View  SMP  runlog  file 

Pages  through  SMP  runlog  file, 

SMPLOG.TEX. 

6 

View  SMP  output  file 

uses  Norlon^^^  Editor^  to  view  SMP  output 
files. 

7 

View  ship  hydrostatics 

Pages  through  hydrostatic  calculations.  It  is 
necessary  to  run  SMP  first. 

8 

Hull  plot 

FNots  the  ofTsels  or  waterplane  of  the  current 
ship.  It  is  necessary  to  run  SMP  first. 

9 

View/Edit  SNi I*  input 

Pages  through  input  file  or  edits  SMP  input 
files  using  SMPEDIT. 

10 

Run  SMP 

1  Huns  SMP  and  saves  selected  output. 

11 

Polar  Plot.s 

1  (iencrates  polar  and  density  plots. 

12 

Quit 

Ends  program; 

returns  control  to  PREDICT. 

G 


HELP 


HELP  describes  the  various  SMPAM  main  menu  options.  The  HELP  submenu,  see 
Figure  2,  is  almost  exactly  like  the  SMPAM  main  menu  it  describes.  This  feature  is 
similar  to  this  manual,  though  it  touches  on  slightly  different  eispects,  e.g.  running  SMP 
in  background,  smd  lacks  the  overview  of  this  manual. 


SMP  HELP  MENU 

HELP  TOPICS 


1. 

Overview 

7  . 

view  Ship  hydrostatics 

2. 

SMP  system  specification 

8. 

Hull  plot 

3  . 

Change  SMP  data  path 

9. 

Edit  SMP  input 

4  . 

Change  ship 

10. 

Run  SMP 

5. 

View  SMP  Runlog  file 

11. 

Polar  plots 

6. 

View  SMP  Input/Output  files 

12. 

Exit  HELP  menu 

Enter  HELP  topic  number  ?  12 


Fig.  2.  S.MP  ai)|)lications  manager  HELP  menu. 

SMP  System  Specifications 

The  system  specifications  option  can  create,  view,  or  modify  the  paths  and  di¬ 
rectory  specifications  foi  SMP  iiipiil  and  outfuil.  These  sjiecifications  are  in  the  file, 
SMPSYti.TEX.  and  could  In'  creaicii,  viewed,  or  modified  outside  PREDICI'. 

This  option  has  iwo  Miiinienii-  d  lie  first  specifies  the  action  to  take  on  the  sys¬ 
tem  siiecificalions;  either  create,  view,  <jt  luodifv,  Clioosing  Exit  at  this  point  returns 
PHEDICT  to  the  S.MI’AM  main  ni''nn  (’lioo.'-ing  Create  sleji.s  through  all  tlie  .specifi¬ 
cations  one  at  a  time,  askim;  the  ii'.er  to  <-iiter  the  airpropriate  jialh  or  directory.  Wlieri 
complete,  the  data  are  w  riHcii  to  SMP\SMPSYS.TEX. 

Clioosing  to  View  the  system  specifications  siniidy  writes  them  to  tlie  screen  and 
(iocs  not  change  lliern. 

CMioosing  to  Modify  tlie  svstein  sirecificatioris  allows  the  user  to  change  just  the 


specifications  desired.  The  most  typical  changes,  the  SMP  data  path  and  ship  variables, 
have  their  own  options  on  the  SMPAM  main  menu  to  ma^ae  their  use  easier  (Table  2). 
See  Table  3  for  a  listing  of  the  system  specification  options  and  a  brief  description. 


Table  3.  List  and  description  of  ^MP  system  specifications  menu. 


Number 


Selection 


Help 


Halo^^  program  path 


graphics  screen  driver 


printer  driver 


SMP  program  path 


SMP  input  path 


SMP  output  path 


SMP  data  path 


Ship  type 


Current  ship 


Variant 


Cvcle 


M  Option 


15  Exit  this  menu 


Description 


On-line  help  to  explain  menu  options. 


Location  of  Halo^^^  program  files. 


Screen  driver  identifier. 


Printer  driver  identifier. 


Location  of  SMPAM  executables. 


Location  of  SMP  input  fileb. 


Directory  of  SMP  ASCII  output. 


Directory  of  SMP  binary  output. 


Subdirectory  of  SMP  input  directory. 


Root  of  ship  name. 


Denotes  changes  in  hull  geometry  (A-Z). 


Number  of  SMP  runs  made  with  this  variant. 


Default  value  is  first  line  from  current  SMP 
input  file. 


SMP  run  option. 


Returns  to  first  system  specification  menu. 


Appendix  B  explains  the  directory  tree  structure  and  file  naming  conventions  used 
by  PREDICT,  SMPAM.  and  Sl’IlAM,  It  is  best  to  read  this  appendix  and  understand 
the  system  specifications  before  making  any  changes  to  them. 

The  specification  option.  Ship  Type,  assumes  that  ships  of  a  single  type  are  put  in 
the  same  directory.  While  this  makes  scMise,  it  is  not  mandatory.  It  is  also  possible  to 
specify  a  ship  which  docs  not  exist,  in  which  case  very  few  options  wull  work,  though 
PREDICT  will  not  stof)  running. 

Changing  the  Title  or  Option  here  does  not  change  the  SMP  input  file. 
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Change  SMP  data  path 

The  user  can  chamge  the  SMP  binary  output  data  location  directly  using  this  option, 
avoiding  the  menus  associated  with  SMPAM  main  menu  option  2. 

The  program  displays  the  current  path  and  asks  the  user  if  a  change  is  desired.  If 
so,  the  user  enters  the  complete  new  path,  starting  at  the  root  directory.  If  the  path 
is  correct  as  stated,  the  user  enters  N,  indicating  no  further  changes,  and  the  program 
returns  to  the  SMPAM  main  menu. 

Change  ship 

Here,  the  user  can  choose  from  a  list  of  available  SMP  input  files,  rather  than  having 
to  remember  them  once  running  under  PREDICT.  The  first  step  is  to  select  the  proper 
subdirectory  from  the  directory  specified  in  the  SMP  data  path.  The  user  enters  the 
number  of  the  desired  subdirectory.  Entering  an  A  will  accept  the  current  highlighted 
choice. 

The  second  step  is  to  select,  the  ship  input  file  from  that  subdirectory.  Again  the 
user  enters  the  number  of  the  desired  file  or  an  A  to  accept  the  current  choice.  Only  files 
with  an  INP  extension  are  listed.  An  incorrect  choice  will  result  in  an  error  warning 
and  another  chance  to  answer  correctly. 

View  SMP  runlog 

This  option  pages  through  the  SMP  runlog  file  on  the  terminal  screen.  The  SMP 
runlog  file  keeps  track  of  the  runs  made  with  different  variants,  and  displays  the  variant, 
cycle,  title  and  comment  from  SMP93'PC  input  file.  The  run  log  file  hais  the  name  Root 
Variant.in  in  directory  SMP0irrPT\5/iip  Type.  e.g.  SHP0UTPT\DESTR0YR\DD965H  .TLT. 

View  SMP  output  files 

Under  this  option,  it  is  onl\  possil)le  to  view  the  files,  not  make  or  save  any  changes. 
The  two  selections  on  the  submenu  arc  shown  in  Table  4.  PREDICT  uses  Norlon^^^ 
Editor  to  view  the  output  file.  Once  in  Norton^'^'  Editor,  the  standard  Editor  commands 
are  valid  though  it  is  still  nol  possible  to  save  changes. 
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Table  4.  View  SMP  output  files  sub-menu  choices  and  descriptions. 


Number 

Selection 

Description 

1 

View  SMP  output 
file  using  Norton^^ 
Editor 

Uses  BAT  file  to  open  Norton^^  Editor,  no 
changes  are  saved. 

2 

Exit 

Returns  to  SMPAM  main  menu. 

View  ship  hydrostatics 

This  option  pages  through  SMP  hydrostatic  data  on  the  screen.  See  Figure  3,  for  an 
example  of  the  first  screen  of  data.  The  hydrostatic  data  include  length,  beam,  draft, 
displacement,  vertical  and/or  longitudinal  centers  of  gravity,  buoyancy,  and  flotation, 
various  coefficients,  and  appendage  data.  It  is  necessary  to  have  already  run  SMP  for 
the  current  ship  to  use  this  option  without  an  error  message.  The  hydrostatic  data  file 
is  HSTAT.TEX  in  directory  SMP0UTPT\5/iip  Type,  e.g.  SMP0U7PT\DESTR0YR\HSTAT.TEX. 


DD965  SPIP  STABILIZATION  STUDY  APMORED  TRIMMED  RRS  STAB  9/23/88 

TABLE  OF  SHIP  PARTICULARS 


SHIP  CHARACTERISTICS  - 


SHIP  LENGTH  (LPP) 

529.00 

FEET 

LENGTH/BEAM 

9 . 636 

BEAM  AT  MIDSHIPS 

54 . 90 

FEET 

BEAM/DRAFT 

2.700 

DRAFT  AT  MIDSHIPS 

20.33 

FEET 

DRAFT/BEAM 

0.370 

DISPLACEMENT  (S. W. ) 

6282 . 1 

L.  TONS 

DISPL/ ( , OILPP) **3 

55.946 

DESIGN  SHIP  SPEED 

\j 

o 

o 

o 

KNOTS 

FROUDL  NUMBER 

0.259 

VERTICAL  LOCATIONS 


C.  OF  GRAVITY  fVCC)  • 

2  .84 

FEET 

VCG/BEAM 

0.052 

C.  OF  GRAVITY  (KG) •* 

23.17 

FEET 

KG/ BEAM 

0.422 

METACENTRIC  HT.  (CM) 

3  .17 

FEET 

GM/BEAM 

0 . 058 

METACENTER  (KM)** 

26.34 

FEET 

KM/BEAM 

0 . 480 

C.  OF  BUOYANCY  (KB)** 

12  .  19 

FEET 

KB/BEAM 

0.222 

PAUSE.  Type  Q  to  quit.  Press  any  other  key  to  continue. 


Fig.  3.  First  screen  of  SMP  hydrostatics  data. 


Hull  plot 


HULLPLOT  plots  the  offsets  of  the  current  ship  using  Halo^^  Professional  graphics 
package®.  Displays  of  both  body  plan  and  waterplane  plots  au’e  possible,  as  well  as  hard 
copies.  The  user  can,  to  some  extent,  customize  the  appearance  of  the  plots  using  the 
HULLPLOT  submenu.  It  is  necessau'y  to  first  run  SMP  and  save  the  * .  HPL  file  for  the 
current  ship  tc  use  this  option.  The  HPL  file  is  in  directory  SMPDATA,  subdirectory  Root, 
e.g.  SMPDATA\DD965\DD965H6.HPL. 

When  running  HULLPLOT,  the  user  is  queried  &s  to  whether  the  computer/printer 
is  monochrome  or  color.  Answering  this  question  draws  the  body  plan  with  default 
setting  on  the  screen.  The  default  settings  result  in  a  solid  line  plot  of  the  spline  fit 
without  the  original  offset  points  shown,  and  the  plot  scale  equal  the  maximum  draft. 

Entering  H  produces  a  hard  copy;  a  carriage  return  brings  up  the  HULLPLOT 
submenu,  see  Figure  4.  The  selections  for  this  menu  are  in  Table  5. 


HULL  PLOT  PROGRAM 


Current  Ship  *=  DD965 
List  of  Options 


1. 

HELP 

7  . 

Points 

2. 

Change  plot  scale 

8. 

Enter  conuaent 

3. 

Circle  original  offsets 

9 . 

Spline  fit 

4  . 

Dont  circle  original  offsets 

10. 

Original  data 

5. 

Plot  hull,  y,?. 

11. 

Waterline,  y,x 

6. 

Lines 

12 . 

Change  color  mode 

13 . 

QUIT 

Enter  option  ? 


Fig.  F  HULLPLOT  submenu  choices. 


Plot  sellings  are  lurnecl  on  by  choosing  lhal  seleclion  and  remain  in  effect  until  coun¬ 
teracted  by  another  option.  Settings  that  are  not  mutually  exclusive  can  be  combined 
to  produce  the  desired  look. 
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Table  5.  HULLPLOT  plot  features  menu  listing  and  description. 


Number 

•  Selection 

Description 

1 

HELP 

Help  feature  that  explains  the  HULLPLOT 
program. 

2 

Change  plot  scale 

Changes  plot  size.  Value  specified  is  plot 
height;  the  width  is  autoscaled  to  avoid  scaling 
distortion. 

3 

Circle  original  offsets 

Draws  circles  around  original  offsets. 

4 

Don’t  circle  original  offsets 

Removes  circles  around  original  offsets. 

5 

Plot  hull,  y,z 

Plots  body  plan  using  current  settings. 

6 

Lines 

Uses  solid  lines  for  drawing. 

7 

Points 

Uses  dotted  lines  for  drawing. 

8 

Enter  comment 

Allows  additional  comments  to  be  added  to 
hard  copy  plots.  Plot*-  already  use  input  file 
title  as  plot  title. 

9 

Spline  fit 

Plots  spline  fit  of  original  offsets. 

10 

Original  data 

Plots  lines  through  original  offsets.  Using 
Points  (7)  with  this  option  results  in  just  the 
offset  data  with  no  lines. 

11 

Waterline,  y.x 

Plots  ship  walerplane. 

12 

Change  color  mode 

Changes  display  to  and  from  monochrome  to 
color. 

13 

1 _ 

QUIT 

Returns  to  SMPAM  main  menu. 

Edit  SMP  input 

SMPEDIT  is  a  guided  editor  for  S.MI’  input  files.  SMPEDiT  allows  users  who  are 
not  overly  familiar  with  tli<'  inpui  file  format  to  make  changes  while  reducing  the  risk 
of  entering  an  error.  The  main  niemi  is  virtually  a  listing  of  the  Data  Card  Set  names 
from  Reference  1 . 

The  process  of  making  changes  is  fairly  straightforward  and  demonstrated  fully  in 
the  example,  page  2S.  The  user  selects  a  Data  Card  Set  to  modify.  The  next  submenu 
is  either  a  listing  of  the  Data  ('ard  Sei  variables  to  choose  from,  or  a  submenu  asking 
what  action  is  to  be  taken,  i.e..  deleting,  creating,  or  modifying 
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In  the  first  case,  the  user  simply  selects  the  variable  to  change  and  enters  the  new 
value.  When  through,  the  user  selects  EXIT  and  returns  to  the  SMPEDIT  main  menu. 

In  the  second  case,  the  user  enters  what  action  to  take,  typically  deleting,  creating, 
modifying,  or  exiting.  This  second  type  of  submenu  occurs  with  hull  geometry,  ap¬ 
pendage,  point  location,  and  sea  state  options.  A  series  of  questions  follow  that  guide 
the  user  to  make  the  desired  changes  by  displaying  the  current  values  and  prompting  the 
user  for  new  ones.  When  through,  the  user  selects  EXIT  and  returns  to  the  SMPEDIT 
main  menu. 

Option  15,  Edit  Annotation,  is  not  an  official  Data  Card  Set  from  Reference  1 
or  2.  It  is  additional  identifying  information  added  to  the  SMP93-PC  input  file  and 
echoed  in  the  SMP  runlog.  It  does  not  appear  in  the  SMP  output  and  does  not  affect 
computations. 

The  last  option.  Write  chamges  to  SMP  input  file  and  exit,  option  number 
IG.  requires  the  user  to  understand  the  naming  convention  using  variants  and  cycles. 
Changes  to  the  input  file  hull  geometry  will  cause  the  variant  to  change,  but  appendage 
changes  alone  will  not  change  the  variant.  The  ‘‘save’’  submenu  gives  two  possibilities 
for  saving  the  file. 

The  first  choice  will  always  create  a  new  file  with  a  new  cycle  number.  If  the  variant 
changed,  then  the  new  file  wili  also  have  a  n?w  variant.  For  example,  the  modified  file, 
DD965H6,  is  saved  as  either  DD965H7  or  DD965I7,  depending  if  the  variant  changed. 

The  second  choice,  will  overwrite  the  existing  file  if  the  variant  did  not  change.  If  the 
variant  did  change,  the  new  file  will  have  a  different  variant  but  same  cycle  number.  For 
example,  the  modified  file.  DD965H6.  is  saved  as  either  DD965H6  or  DD965I6,  depending 
if  the  variant  changed. 

It  is  important  to  keep  track  of  which  variant  and  cycle  have  what  modification  to 
know  what  is  in  which  subdirectory  The  annotation  line  is  useful  for  this. 

Run  SMP 

Runs  SMP93-PC  using  the  current  ship  and  directs  output  to  the  proper  directories. 
The  Run  SMP  menu  allows  the  user  to  decide  which  files  to  keep  and  which  to  delete 
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after  running  SMP.  Not  all  these  files  are  created  for  every  SMP  run.  Which  files  are 
generated  by  SMP  depends  on  the  output  options  flagged  in  the  Program  (Run)  Options 
line  of  the  SMP  input  file.  Reference  1  and  SMPEDIT  describe  run  options  and  how 
they  affect  the  output.  Choosing  to  save  a  file  does  not  generate  the  file  if  those  output 
options  are  not  chosen  in  the  SMP  input  file.  The  selections  simply  toggle  between  yes 
and  no.  The  possible  files  are  listed  in  Table  6. 


Table  6.  Description  of  possible  SMP  output  files. 


Menu  choice 

Description 

Potential  file 

Potential  flow  velocity  potential 

B 

POT 

Coefficient  file 

Added  mass  and  damping,  excitation 

B 

COF 

Load  coefficient  file 

Loads 

B 

LCO 

Hull  plot  file  * 

Spline  fit  of  offsets  for  HULLPLOT 

A 

HPL 

Load  response  operator  file 

Response  operators  for  loads 

B 

LRA 

Origin  file  * 

Ship  origin  transfer  function  file 

B 

ORG 

Response  operator  file 

Response  amplitude  operators 

B 

RAO 

RMS  file 

Response  RMS  for  unit  wave  height 

B 

RMS 

Severe  motion  file 

Worst  case  response  and  sea  conditions 

B 

SEV 

Speed  polar  data  file  * 

Response  data  for  speed  polar  plots 

B 

SPD 

Speed  polar  text  file  * 

Labels  and  titles  for  speed  polar  plots 

A 

SPT 

Lateral  coeff.cient  file 

Frequency  domain  coefficients 

for  rudder  roll  stabilization 

B 

LAC 

Lateral  excitation  file 

Frequency  domain  coefficients 
for  rudder  roll  stabilization 

B 

LAE 

•  saving  recommended 
t  A  =  ASCI1;  B=Binary 


Polar  plots 

The  polar  plot  routine.  POL.AREGA,  provides  two  types  of  plots:  a  polar  plot  of 
the  resi)onse  and  a  density  plot  of  the  response  versus  encountered  modal  period.  The 
polar  plots  can  either  be  color  filled  contours  or  black  and  white.  It  is  necessary  to 
run  SMP  and  save  the  SPD  and  SPT  files  before  attempting  polar  plots.  If  PREDICT 
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cannot  find  the  SPD  and  SPT  files  for  the  current  ship,  it  simply  returns  to  the  main 


menu. 

Like  the  rest  of  PREDICT,  POLAREGA  is  menu  driven.  Table  7  gives  the  options 
on  the  polar  plot  main  menu  and  Table  8  gives  the  options  on  the  density  plot  main 
menu.  POLAREGA  uses  values  from  the  previous  plot  as  default  values  for  the  current 
plot. 


Table  7.  Polar  plot  maun  menu  options. 


Number 

Selection 

1 

Select  Channel 

2 

Change  Sea  Condition 

3 

Select  Magnitude  or  Period 

4 

Select  Color  or  Black  and  White  Print 

5 

Change  Scale 

6 

Plot  Polar  Plot 

7 

Exit 

Table  8.  Density  plot  main  menu  options. 


.Number 

Selection 

1 

Select  Channel 

2 

Change  Scales 

3 

1  Change  Sea  Type 

4 

j  Plot  Density 

5 

1  Exit 

A  channel  is  simply  a  ship  res|)onse.  The  ship  response  ,iame  is  the  name  used 
internally  to  SMP  to  identif}  responses.  In  that  naming  convention:  displacement  is 
DSP;  velocity  is  VEL;  acceleration  is  ACC;  lateral  is  LAT;  longitudinal  is  LON;  vertical 
is  VER;  relative  motion  is  RLM,  relative  velocity  is  RLV;  and  points  are  PI  to  PO.  So 
pilch  velocity  would  be  PITVEL  and  vertical  acceleration  of  point  3  would  be  VERACCP3. 


Selecting  a  response  also  gives  the  user  a  chajice  to  set  the  wave  direction  and  ch2Liige 
the  scales. 

The  sea  condition  is  a  10  character  string,  beginning  with  the  Bretschneider  desig¬ 
nation  ^BR”,  containing  the  significant  wave  height,  modal  period,  and  crestedness  of 
the  seas.  Again  POLAREGA  uses  the  SMP  internal  representation.  The  first  four  dig¬ 
its  are  the  significant  wave  height  without  a  decimal  place.  The  next  two  digits  are  the 
modal  period.  The  last  two  characters  denote  either  longcresled  or  shortcrested.  For 
example,  BR061911SC  would  be  a  shortcrested  Bretschneider  spectra  with  a  significant 
wave  height  of  6.19  feet  and  modal  period  of  11  seconds.  Changing  the  sea  condition 
also  gives  the  user  a  chance  to  set  the  wave  direction. 

Changing  the  scale  of  a  polar  plot  simply  determines  the  mcLximum  and  minimum 
contours  and  the  contour  increment.  On  the  density  plot,  changing  the  scale  affects  the 
y  axis  only. 

Choosing  between  magnitude  or  ■period  is  a  choice  between  plotting  the  magnitude 
or  the  encountered  modal  period  of  the  response.  Selecting  a  response  also  gives  the 
user  a  chance  to  set  the  wave  direction  and  change  the  scales. 

Setting  the  wave  direction  equal  to  0  means  the  ship's  bow  is  pointed  towards 
0  degrees.  This  is  the  most  common  setting.  Using  a  non-zero  value  is  useful  for 
comparing  with  full  scale  trials  data  where  heading  ha^  actual  geographical  significance. 
The  speeds  for  the  plot  come  from  the  SMP  input  file. 

To  generate  a  polar  plot,  step  through  the  options  selecting  a  response,  sea  condi¬ 
tion,  black  and  white  or  color,  anc-  response  or  period.  There  are  many  opportunities 
to  change  the  scale,  so  it  is  not  always  necessary  to  do  so.  POLAREGA  reads  SMP- 
SVS.TEX,  POLAR.DAT.  and  DENSiT^'.DAT  for  the  path  and  previous  run  data. 

Quit 

Returns  user  to  PREDICT  mam  menu. 

STH  APPLICATIONS  MANAGER 

The  Simulation  Time  lli.story  .Applications  Manager  (STH.AM)  helps  the  user  in 
setting  up  STH  and  ACTII  runs.  The  options  allow  the  user  to  set  data  paths,  select 
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skips,  create  STH  and  ACTH  input  files,  run  STH  and  ACTH,  and  plot  the  time 
histories. 


STHAM  MAIN  MENU  OPTIONS 

This  section  is  a  brief  description  of  the  m2Lin  menu  options  ^Lnd  what  they  do. 
DetEuls  as  to  input  file  formats  and  program  theory  are  in  Reference  3.  See  Table  9  for 
listing  of  main  menu  options  and  a  brief  description. 

HELP 

HELP  gives  a  description  of  the  genera)  overview  of  the  STH  applications  manager 
and  the  main  menu  options.  The  HELP  menu,  see  Figure  5,  is  very  similar  to  the 
STHAM  main  menu  and  provides  the  same  sort  of  help  as  the  SMPAM  online  help. 


STH  HELP  MENU 


Help  Topics 


1. 

General  Description 

9 

2. 

Overview 

10 

3  . 

STH  System  Specification 

il 

4  . 

Change  STH  data  path 

12 

5. 

Change  Ship 

13 

6. 

View  STH  Run  Suirjtiary 

14 

7  . 

Edit  STH  input 

8. 

Run  STH 

15 

Enter  HELP  topic  number  ? 


View  ACTH  Run  Summary 
Edit  ACTH  iriput 

Run  ACTH  (Mot/vel/acc  at  a  point) 
View  ACTH  ERROR.TEX  file 
Data  Analysis  and  Plots  (COLLECT) 
Convert  ACTH  data  format 
(COLLECT  binary  to  ASCII) 

Exit  HELP  menu 


Fig.  5.  STD  applications  manager  HELP  menu. 


STH  System  Specifications 

The  system  specifications  option  creates,  views,  or  modifies  the  paths  and  directory 
specifications  for  Ume  history  input  and  output.  These  specifications  arc  in  the  file, 
STHSYS.TEX.  and  could  be  created,  viewed,  or  modified  outside  PREDIC1\ 

This  option  has  two  submenus.  'I'he  first  specifies  the  action  to  take  on  the  sys- 
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Table  9.  STH  Applications  Manager  main  menu  selections  and  description. 


Number 

Selection 

Description 

1 

HELP 

Online  help  for  STHAM. 

2 

STH  System  Specifications 

Sets  default  paths  and  directories  for  locating 
data  for  STH  and  ACTH  runs.  i 

3 

Change  STH  data  path 

Changes  STH  input  path  without  exercising  se-  i 
lection  2.  | 

4 

Change  Ship 

Changes  ship  directory,  variant,  and  cycle  with  j 
exercising  selection  2.  1 

5 

View  STH  Run  Summary 

Pages  through  STH  run  summary  file,  | 

STHLOG.TEX.  | 

G 

Edit  STH  input 

Accesses  STIl  input  file  so  user  can  set  pioper 
sea  conditions. 

7 

Run  STH 

Runs  STH  for  rurrent  ship  and  input  files. 

8 

View  ACTH  Run  Summary 

Page  through  ACTH  run  summary  file. 

\ 

ACTHLOG.TEX. 

J - - 

Edit  ACTll  input  Accesses  ACTH  input  file  so  user  can  select 


point  locations  for  time  histories. 


10 

Run  ACTll 

(Mot/vel/arr  at  a  yioint ) 

-  - -  '  ■  — 

Run:'  ACTH  for  current  ship  and  input  files.  | 

1) 

View  ACTll 

ERROR. TE.\  fii. 

Pages  through  ACTH  run  time  error  file 

12 

Data  Plot 

j  IMotling  rouiines  for  hardcopy  output  of  Si'll 

1  and  ACTH  time  l/stories. 

13 

C'Onvcri  A(’ri!  (iaia  format 

('onvcrts  binary  output  files  to  ASCII. 

14 

QUIT 

1  Iteturiis  to  PREDICT  main  menu. 

tem  specifications,  either  create,  view,  or  modify.  Choosing  Exit  at  this  point  returns 
PREDICT  to  the  STHAM  main  menu.  Choosing  Create  steps  through  all  the  specifi¬ 
cations  one  at  a  time,  ^UJking  the  user  to  enter  the  appropriate  path  or  directory.  When 
complete  the  data  are  written  to  STHSYS.TEX, 

Choosing  to  View  the  system  specifications  simply  displays  them  on  the  screen  and 
does  not  change  them. 

Choosing  to  Modify  the  system  specifications  brings  up  the  second  submenu,  see 
Figure  6.  Using  the  second  submenu,  the  user  cam  change  just  the  specification  desired. 
The  most  typical  changes,  the  STH  data  path  and  ship  variables,  can  be  made  more 
easily  using  options  3  and  4  of  the  STHAM  main  menu,  Table  9.  Again  Appendix  B 
gives  a  description  of  the  file  directory  structure  and  default  paths.  Table  10  has  a 
listing  and  brief  description  of  the  system  specification  menu  options. 


Table  10.  STH  system  specifications  listing  and  description. 


Number 


10 


i  1 
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Option 


Description 


Help 


STH  program  path 


STH  data  path 


COLLECT  program  path 


COLLECT  data  path 


SMP  program  path 


SMP  inpul  t'^lli 


On-line  help  to  explain  menu  options. 


Location  of  STHAM  executables. 


Location  of  STH  output  files. 


Location  of  COLLECT  executables. 


Location  of  ACTH  output. 


Location  of  SMPAM  executables. 


Location  of  SMP  input  files. 


SMP  data  pall 


Location  of  ship  origin  transfer  function  files, 
usually  the  SMP  binary  output  directory. 


Ship  ty[)c 


Subdirectory  of  SMP  input  directory. 


(mrient  ship 


Hoot  of  ship  name 


\  ariant 


l)<*nolos  changes  in  hull  geometry.  (A-Z) 


Cvcle 


Number  of  SMP  runs  made  with  this  variant. 


Title 


Exit  menu 


Default  value  is  first  line  from  current  SMP 
input  file. 


Kelurns  Lo  first  STH  system  spe^cification 


menu. 


MODIFY  STH  SYSTEM  SPECIFICATIONS 


List  of  Options 


1.  Help 

2.  STH  PROGRAM  PATH«D:\STH 

3.  STH  DATA  PATH-D: \STHDATA 

4.  COLLECT  PROGRAM  PATH-C: \COLOCT91 

5.  COLLECT  DATA  PATH-D: \DATA 

6.  SMP  PROGRAM  PATH-D: \SMP 

7.  SMP  INPUT  PATH-D: \ALTINPUT 

8.  SMP  DATA  PATH-D: \SMPDATA 

9.  SKIP  TYPE-DESTROYR 

10.  CURRENT  SHIP-DD965 

*■11.  VARIANT-H 

12.  CYCLE-6 

13.  TITLE-DD965  SPXP  STABILIZATION  STUDY  ARMORED  TRIMMED  RRS  STAB  9/23/88 

14.  Exit  this  menu 

Enter  option  ? 


Fig.  6.  STH  system  specifications  menu. 


Change  STH  data  path 


Here  the  user  can  only  change  the  drive  of  the  STH  data  path.  The  directory  name 
remains  unchanged.  The  drive  and  directory  name  can  be  changed  using  STHAM  main 
menu  option  2,  STH  Systems  Specifications. 


Change  ship 

With  this  option,  the  user  selects  a  new  ship  from  a  displayed  list  of  available  SMP 
origin  transfer  function  files,  and  STH  input  files.  First  the  user  can  choose  from  existing 
ship  time  history  input  files  located  in  STH  by  entering  the  new  ship’s  number,  or  enter 
A  to  accept  the  current  ship. 

If  the  desired  ship  does  not  yet  have  a  time  history  input  file,  enter  N.  Whereupon, 
the  user  selects  a  Ship  Type  subdirectory  and  ship  from  the  SMP  input  directory,  in 
the  manner  described  for  selecting  ships  with  the  SMPAM. 
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View  STH  Run  Summary 

This  option  displays  the  STH  run  summary  file,  STHLOG.TEX,  on  the  terminal 
screen.  The  STH  run  summary  keeps  track  of  which  origin  file  was  used  with  what 
sea  conditions,  i.e.  significant  wave  height,  wave  modal  period,  ship  speed  and  head¬ 
ing.  Each  ship  has  its  own  run  summciry  file  located  in  STHDATA\SO.Roof  Variant,  e.g, 
STHDATA\S0DD965H. 

Edit  STH  input 

STHEDIT  allows  the  user  to  change  the  STH  input  in  an  orderly  fashion  that 
minimizes  input  error.  STHAM  uses  two  input  files:  a  ship  dependent  input  file  that 
also  has  ACTH  data,  and  a  generic  input  file,  STH.INP.  STHEDIT  updates  both  these 
files.  Appendix  C  describes  the  ship  specific  input  file.  Reference  3,  pages  16-20, 
describes  the  STH  input  file,  STH.INP,  format  fully.  Once  the  user  becomes  familiar 
with  the  input  fornnat,  it  n^ay  be  easier  and  faster  to  edit  the  files  manually  by  accepting 
the  current  selections  and  then  opting  to  edit  the  file  using  Norton^^^  Editor  later. 

STHEDIT  presents  all  the  STH  relevant  data  on  one  screen,  and  the  user  changes 
the  xnpui  by  entering  the  number  of  the  data  and  its  new  valuCj  separated  by  a  comma. 
The  new  value  should  include  the  decimal  point.  When  finished,  the  user  then  selects 
the  starting  run  numbers  and  may  edit  the  input  file  to  remove  unwanted  sea  condi¬ 
tions.  See  the  example  in  the  STHEDIT,  page  37,  for  information  about  choosing  sea 
conditions,  run  numbers,  and  changes  to  make  using  Norton Editor. 

Run  STH 

Ituns  STH  using  tlie  current  sliif)  origin  transfer  function  file  and  STH  input  file. 
Output  files  SRAVTEX  and  SRA'.DAT.  vdierr  A' is  the  run  number,  are  written  to  SORoot 
Variant  subdirectory  in  the  directory  specified  by  STH  DATA  path. 

View  ACTH  Run  Summary 

This  option  pages  the  ACl'Il  run  summary  file.  TRIALLOG.TEX,  onto  the  terminal 
screen.  T  he  ACTH  run  summary  keeps  track  of  which  sea  conditions,  i.e.  significant 
wave  height,  wave  modal  period,  ship  speed  and  heading,  were  used  for  a  run.  Each 
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ship  has  its  own  run  summary  file  located  in  DATA\SP»uo<  variant,  e.g.  DATA\SPDD965H. 
Edit  ACTH  input 

ACTHEDIT  allows  the  user  to  change  the  ACTH  input  file.  STHAM  uses  two  input 
files  to  run  ACTH:  a  ship  specific  input  file  that  also  has  STH  data,  and  a  generic  ACTH 
input  file,  ACTH .  INP.  Appendix  C  describes  the  ship  specific  input  file.  Reference  3, 
pages  22-27,  describes  the  ACTH  input  file  format  fully.  It  is  always  possible  to  edit 
input  files  using  some  other  editor,  and  may  be  faster  and  easier  once  the  user  is  familiar 
with  the  input  format. 

Table  11.  ACTHEDIT  main  menu  options  and  description. 


Number 

Option 

Description 

1 

HELP 

'  ^  ^  , — - - — - — - -  ■  ■■ 

Provides  online  help  about  ACTH  input  file 

2 

Edit  Wave  Point  Lo¬ 
cations 

Delete,  create,  or  modify  wave  point  locations. 
Must  specify  Scune  locations  as  STH  run,  or 
ACTH  will  not  run. 

3 

Edit  Point  Locations 

Delete,  create,  or  modify  points  at  which  to  cal¬ 
culate  absolute  motion. 

4 

Edit  channels 

Specify  responses  and  points  for  time  history 
calculations. 

5 

Select  STH  Runs 

Chose  STH  run,  or  trial,  to  use  as  basis  for  ACTH 
time  histories  by  flagging  or  unflagging  ship  and 
sea  conditions. 

6 

Select  Ol’TPl’T  for¬ 
mat 

Choose  between  either  binary  or  ASCII  output. 

7 

Exit  this  menu 

Reluriis  to  STHAM  main  menu. 

The  organization  of  ACTHEDIT  is  like  S.MF’EDIT.  having  menus  and  submenus, 
rather  than  STHEDIT  which  makes  selections  from  just  one  list.  Table  11  lists  the 
ACTHEDIT  main  menu  ojiiions. 

The  subscreens  are  all  fairly  similar  in  that  they  have  submenus  that  allow  the  ex¬ 
isting  data  to  be  modified  oi  deleted,  or  new  data  added.  It  is  simply  a  matter  of  mak¬ 
ing  the  desired  choice  and  entering  the  data.  See  the  example  section  ACTHEDIT, 


page  43,  for  information  about  modifying  data  and  selecting  STH  runs. 

Some  choices  do  require  some  extra  explanation: 

Wave  point  locations*  STHAM  will  not  allow  the  user  to  enter  wave  point 
locations  if  the  selected  STH  runs  do  not  have  wave  points.  So  it  necessary  to  specify 
the  STH  runs  with  wave  points  before  editing  the  wave  point  locations.  Also  if  the 
wave  points  locations  are  not  identical  between  the  STH  runs  2Lnd  ACTH  input,  then 
ACTH  will  not  run. 

Edit  Point  Locations  The  actual  mechanics  of  adding,  deleting,  or  modifying 
point  locations  are  simple:  separate  data  with  commas  and  include  decimal  points. 
But  changing  the  point  locations  here  does  not  update  the  point  location  data  used 
elsewhere.  It  is  necessary  to  modify  the  channels  selected  to  make  sure  they  are  using 
the  new  point  locations. 

Channel  selection.  Channel  selection  involves  menus  which  determine  which  re¬ 
sponse  is  saved  in  what  channel.  Only  responses  with  assigned  channels  are  saved  in 
the  output  files.  A  channel  is  simply  a  column  of  numbers  wnth  data  saved  for  every 
time  step.  A  maximum  of  16  channels  are  possible. 

The  first  submenu  asks  whether  to  modify,  delete,  or  add  a  channel.  The  next 
submenu  asks  for  a  channel  number  to  operate  on.  And  the  final  submenu  lists  the 
possible  responses  to  assign  to  channels.  Table  12  lists  the  type  of  responses  possible 
and  which  submenu  choice  they  arc  associated  with.  The  final  selection  involves  spec- 
ifying  whether  a  response  is  vertical,  lateral,  or  longitudinal;  a  displacement,  velocity, 
acceleration,  or  force;  or  is  ship-referenced  or  earth-referenced. 

ACTH  uses  channels  and  points  from  the  previous  run  as  initial  values  and  does  not 
update  point  locations  automatically.  If  tliese  are  not  appropriate,  it  is  necessary  to 
either  modify  the  existing  clianncls.  or  delete  them  and  add  new  ones.  When  adding  a 
new  channel,  wave  height  is  always  tlie  default  channel  and  is  then  changed  by  further 
selections. 

Select  STH  runs.  STHAM  presents  the  conditions  used  to  generate  the  STH 
output  files  in  the  specified  STH  data  directory  and  ship  subdirectory  automatically. 
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Table  12.  Possible  response  selections. 


Selection 

Description 

Wave  height  origin 

Wave  elevation  at  origin 

Origin  motion 

Six  degree  of  freedom  response  -  displacement,  ve¬ 
locity,  and  acceleration 

Motion  at  a  point 

Longitudinad,  later«d,  and  vertical  displacement, 
velocity,  and  acceleration  of  a  point  in  Eairth  ref¬ 
erence  frame. 

Relative  Motion  point 

Longitudinal,  lateral,  and  vertical  displacement, 
velocity,  and  acceleration  of  a  point  in  ship  refer¬ 
ence  frame. 

Wave  height  at  a  Point 

Wave  elevation  at  a  point. 

Forces  at  a  point 

Longitudinal,  lateral,  and  vertical  forces  at  a  point 
in  Earth  or  ship  reference  frame. 

Thus,  the  user  can  only  flag  or  unflag  the  choices  in  this  matrix;  it  is  not  possible  to 
increase  the  matrix  of  conditions  here.  If  the  desired  condition  does  not  exist  among 
the  list  of  choices,  either  specify  a  new  STH  data  directory  and  ship  subdirectory,  or 
make  a  STH  run  for  the  desired  conditions. 

Run  ACTH  (Mot/vel/acc  at  a  point) 

Calculates  motion  at  a  point  lime  liislories  by  running  ACTH  using  the  current  ship 
origin  time  history  files  and  .ACTH  input  file.  Writes  output  files,  DRA.TEX,  DRA^.ASC, 
DRAC  INT.  DRA^.CON.  wher<‘  A'  is  the  run  number,  into  the  COLLECT  data  path  directory 
and  ship  subdirectory,  e.g.  DATA\SPDD965H. 

View  ACTH  ERROR.TEX  file 

Displays  file,  ERROR.TEX.  to  tin-  >rr<Tn.  ERROR.TEX  contains  any  error  messages 
written  while  running  ACTH.  If  .ACTH  ran  without  error.  ERROR.TEX  hris  the  message; 
All  STH  runs  were  successfully  completed. 


24 


Data  Analysis  and  Plots 

The  Data  Analysis  and  Plots  option  plots  the  ACTH  time  history  data.  The  current 
maximum  amount  of  data  that  can  be  plotted  is  16  channels  at  3  '.amples  per  second 
for  20  minutes. 

The  first  submenu,  titled  Datalog  data  analysis  and  plotting,  has  options  to 
select  the  data  path  and  run  to  plot.  Table  13  lists  the  menu  options. 

Table  13.  Datalog  data  analysis  eind  plotting  menu  options. 


Number 

Option 

Description 

1 

Computer  system 
specification 

Modify  COMPSYS.TEX 

2 

Change  DATA 
Analysis  drive 

Changes  drive  of  DATA  directory. 

3 

Change  TRIAL 

Select  new*  TRIAL  subdirectory. 

4 

Get  new  run  1 

Select  new  run  from  current  DATA  analysis  path. 

5  ! 

Plot  data 

1  Continues  with  plotting  menu. 

Changes  to  COMPSYS.TEX  C0MPSYS.TEX  has  path  and  file  data  for  CLT- 
MAIN,  the  way  SMPSYS.TEX  has  data  for  SMPMAIN.  See  Figure  7  for  an  example 
COMPSYS.TEX  file.  PREDICT  only  uses  CLTMAIN  for  plotting  and  most  of  the  data  in 
COMPSYS.TEX  is  extraneous  for  plotting  purposes.  Table  14  lists  and  briefly  describes 
the  lines  pertinent  for  plotting. 

Data  path  variables  Options  2-4  work  like  the  SMPAM  and  STHAM  data 
patli  related  options,  except  some  of  the  terminology  in  new.  TRIAL  refers  to  the  sub¬ 
directory  names  in  DkJk.  the  director)  specified  by  COLLECT  data  path.  Their  names 
have  the  form  SPRnnt  Variant  and  are  analogous  to  the  subdirectories  in  STHDATA.  A 
run  refers  to  the  set  of  sea  conditions  used  when  calculating  the  time  history  data.  Run 
numbers  are  assigned  lc»  sea  conditions  m  the  same  order  as  ♦he  in  the  ACTH  input 
flic. 

Datalog  plotting  1  Ins  menu  has  the  details  for  determining  the  look  of  the  time 
history  plots.  Here  the  usin  selects  the  channels  and  scales  to  use  for  the  plots.  It  is  also 
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Table  14.  COMPSYS.TEX  lines  used  by  PREDICT. 


Number 

Option 

Description 

1 

HELP 

On-line  help  to  explain  menu  options. 

4 

" 

program  path 

Location  of  Halo^^  files. 

5 

Halo^^  graphics  screen  driver 

Screen  driver  identifier. 

6 

Halo^^  printer  driver 

Printer  driver  identifier. 

7 

COLLECT  program  path 

Location  of  CLTAM  executaoles. 

9 

DATA  analysis  path 

Directory  of  ACTH  outpiut. 

19 

Current  run  path 

Directory  of  current  run  data. 

20 

Current  run 

Number  of  run  currently  plotting.  | 

25 

Exit 

Returns  to  previous  menu. 

BOOTUP  DRIVE=C 
RAM  DRIVE-C 

HALO  PROGRAM  PATH-C : \HPRO_FOR 
HALO  GRAPHICS  SCREEN  DRIVER-IBME 
HALO  PRINTER  DRIVER-LJTP 
COLLECT  PROGRAM  PATH=C : \COLOCT91 
DATA  COLLECT  PATH-C : \DATA\CUS7 8801 
DATA  ANALYSIS  PATH»D: \DATA\SPDD965A 
DATA  COLLECT  OPTION*REPLAY 

DATA  COLLECT  BACKUP  PATH=NO  DATA  COLLECT  BACKUP  PATH 
AUTOMIX  OPTION-NO 
AUTOMIX  NUMBER-1 

TRIAL  TITLE-T-AGOS  19  3  DAY  SHAKEDOWN  TRIP  NORFOLK 

CURRENT  TRIAL  NAME-CUS78801 

COMPUTER  IDENTIFICATION-B 

TRIAL  SUBDIRECTORY  SEQ  NO-2 

NIGHT  COLOR-NO 

CURRENT  RUN  PATH-D ; \DATA\SPDD96 5A 

CURRENT  RUN-3 

COMPUTER-COLLECT 

COMl-NONE 

COM2 -NONE 

USE  EMS-YES 


Fig.  7.  COMPSYS.TEX  example  file. 
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possible  to  look  at  the  actual  data  in  a  text  format.  Table  15  lists  and  briefly  describes 
the  menu  options. 

Changing  the  Y  scale  requires  some  further  explanation.  DLPLOT  uses  either  de* 
fault  values  of  one,  or  the  previous  Y  ranges  for  the  current  plot.  There  are  three  scaling 
options  when  changing  the  Y  scale.  Entering  a  single  N  autoscales  all  the  channels.  En¬ 
tering  a  V ,  channel  number^  e.g.  N,3,  autoscales  just  that  chajinel.  To  manually  scale  a 
channel,  enter  channel  number,  maximum  y  value,  minimum  y  value,  y  increment,  e.g. 
2,  3.0,  -2.0,  1..  Remember  to  separate  data  by  commas  and  include  the  decimal 
point.  Entering  a  zero  exits  this  option. 


I 
I 

I 

I  Convert  ACTH  data  format  (binary  to  ASCII) 

Converts  ACTH  time  liislory  data  from  a  binary  format  to  an  ASCII  format  for 
I  more  general  use.  Reference  3.  pages  2$  -  29.  describes  both  the  binary  and  ASCII  fde 


Table  15.  Datalog  plotting  submenu  options. 


Number 

Option 

Description 

1 

HELP 

Online  help  about  DATALOG  plotting. 

O 

1 

1 

Get  run 

Choose  different  run  number  fron^  current  DATA 
analysis  path. 

3 

Edit  channels 

Change  channels  to  plot 
(6  maximum  for  QPLOT). 

4 

Graph  type 

Change  type  of  graph. 

5 

Change  Y  scale 

Overrides  default  scaling  values  for  y  axis. 

6 

Change  X  increment 

Changes  x  axis  tic  mark  increment. 

i 

Time 

Changes  starting  and  stopping  time  of  plot. 

8 

Plot  data 

Plots  data  lo  screen. 

9 

Display  data 

Pages  through  the  digital  time  history  data  for  | 
the  selected  channels. 

10 

Display  text  fiU* 

Page.*'  through  run  log  and  minimum  analysis  of 
current  run. 

1 1 

Exit 

! 

i 

Pet  urns  lo  Data  Analysis  and  Plotting  j 

Menu.  j 
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form&ts. 


Quit 

Returns  control  to  PREDICT  main  menu. 

EXAMPLE  PREDICT  RUN 

This  section  is  a  stMt  to  finish  exaunple  of  using  PREDICT  to  generate  motion  at 
a  point  time  histories  from  a  SMP93-PC  input  file.  Reference  3,  pages  30-33,  has  an 
example  of  running  STH  and  ACTH  not  using  the  application  manager. 

This  example  assumes  the  existence  of  the  SMP93-PC  input  file.  References  1  and  2 
detail  the  correct  SMP  input  file  format.  The  system  specifications  are  set  to  the  default 
values  given  in  Appendix  B.  The  figures  are  the  actual  screens  from  the  run.  The  user 
is  encouraged  to  use  this  section  cis  a  tutorial  and  follow  along  on  their  computer.  To 
select  an  option,  type  that  option's  number  at  the  prompt  and  press  the  RETURN  key. 

EXAMPLE  PROBLEM  STATEMENT 

The  example  generates  motion-at-a-point  time  histories  using  an  existing  destroj'er 
input  file  by  running  SMP,  STH.  and  ACTH.  The  input  file  is  DD965H6 .  INP  and  will  be 
in  subdirectory  ALTINPUT\DESTROYR.  We  want  motion-at-a-point  time  histories  of  a 
boom  tip  in  two  sea  conditions.  The  boom  tip  location  is  station  20.1,  15  feet  starboard 
of  centerline,  and  40  feet  up  from  the  btiseline. 

The  two  sea  conditions  are;  20  knots,  head  seas  (0  degrees),  6.2-foot  significant 
wave  height,  and  9-second  modal  period:  and  10  knots,  beam  seas  (90  degrees),  6.2- 
foot  significant  wave  height,  and  7-second  modal  period.  The  response  to  plot  is  the 
vertical  acceleration  of  the  boom  tip. 

PRE-RUN  SET  UP 

The  first  step  is  create  a  properly  formatted  SMP  input  file  before  running  PRE¬ 
DICT.  If  the  input  file  is  not  correcll\  formatted,  PREDICT  will  return  to  the  DOS 
prompt  when  the  user  tries  to  run  SMP  or  edit  the  file.  The  file  name  should  follow  the 
specifications  in  NAMING  CONVENTIONS,  page  5,  and  have  the  INP  extension, 
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otherwise  PREDICT  will  not  be  able  to  find  the  file.  Secondly,  the  user  needs  to  know 
the  directory  where  the  input  file  is  located  so  the  path  C2ui  be  specified  correctly.  For 
the  exeimple,  the  input  file,  DD965H6 .  INP,  will  be  in  subdirectory  ALTINPUT\DESTROYR. 

RUNNING  SMP 

Having  set  up  the  input  file  and  directory,  the  user  types:  PREDICT  at  the  DOS 
prompt.  The  user  sees  Figure  8  on  the  screen,  and  enters  a  1  to  select  Run  SMP 
Application  Manager. 


PREDICTION  PROGRAMS  MANAGER 
List  of  Options 

1.  Standard  Ship  Motion  Program 

2.  Simulation  Time  History  Program 

3.  Dlplot 

4 .  EXIT 

Enter  Option  ? 


Fig.  8.  PREDICT  main  menu. 

The  SMP  Application  Manager  (SMPAM)  main  menu.  Figure  9,  is  the  next  screen. 
Before  instantly  choosing  option  10  and  running  SMP,  the  user  needs  to  make  sure  the 
desired  ship  is  the  current  one  and  the  SMP  input  file  has  the  correct  loading,  speeds, 
and  appendages. 

Setting  current  ship 

If  the  input  path  were  the  defaull  one,  SMPINPUT,  it  would  be  possible  to  select 
option  4,  Change  ship  and  select  the  desired  ship;  however,  this  is  not  the  case.  The 
input  file  is  in  ALTINPUT\DESTROYR.  so  the  input  path  is  ALTINPUT.  Instead  of  option  4, 
the  user  should  choose  option  2,  SMP  system  specification,  and  then  select  option 
3.  Figure  10,  to  modify  the  system  specifications.  Details  of  SMP  system  specification 
arc  found  in  online  help  or  in  Appendix  B. 
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SMP  APPLICATIONS  MANAGFP 


Current  Ship  +  Variant  «  CVN68A 


List  of  Options 


1.  HELP 

7.  View  ship 

hydrostatics 

2-  SMP  System  Specification 

8.  Hull  plot 

3 .  Change  SMP  data  path 

9.  View/Edit 

SMP  input  file 

4  -  Change  ship 

10,  Run  SMP 

5.  View  SMP  Runlog  file 

11,  Polar  plots 

6-  View  SMP  output  file 

12.  QUIT 

Enter  Option  ?  2 

Fig.  9.  SMP  application  manager  main  menu. 


SMP  SYSTEM  SPECIFICATIONS 


List 

of  Options 

1. 

Create 

( specifications) 

2  . 

View 

(specifications) 

3. 

Modify 

( specifications) 

4  . 

Exit  th 

is  menu 

Enter  option  ?  3 


Kig.  10.  SMI’ svsicm.s  specifications  menu.  jj 

I 
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I 

I 


The  pertinent  specifications  to  input  path  and  current  ship  are:  SMP  input  path, 
ship  type,  current  ship,  variant,  and  cycle.  Here  the  user  types  the  option  number  to 
change  and  enters  the  new  values.  The  SMP  input  path  is  ALTINPUT;  the  ship  type  is 
the  subdirectory  DESTROYR;  the  current  ship  is  DD965;  the  variant  is  H;  and  the  cycle 
is  6.  Figure  11  show  the  menu  before  any  changes.  Once  all  the  changes  are  complete, 
Figure  12,  the  user  enters  15  and  then  4  to  return  to  SMPAM  main  menu. 


MODIFY  SMP  SYSTEM  SPECIFICATIONS 

Note  that  path  changes  require  starting 
from  the  drive  letter  and  root  directory 

List  of  Options 

1.  Help 

2.  HALO  PROGRAM  PATH«=C  ;  \HPRO_FOR 

3.  HAIJO  GRAPHICS  SCREEN  DRIVER^IBME 

4.  HALO  PRINTER  DRIVER=EPSN 

5.  SMP  PROGRAM  PATH-=D:\SMP 

6.  SMP  INPUT  PATH*=D:\SMP1NPUT 

7.  SMP  OUTPUT  PATH=D;\SMPOUTPT 

8.  SMP  DATA  PATH=D: \SMPDATA 

9.  SHIP  TYPE=CARRIER 

10 .  CURRENT  SHIP=CVN68 

11.  VARIANT«=A 

12.  CYCLE«2 

13.  TITLE-  from  HFDS  T-39.7  92-12*11 

14.  OPTION-2 

15.  Exit  this  menu 

Enter  option  ? 


Fig.  11.  Modif>'  SMP  systems  specifications  menu  before  changes. 


Checking  input 

It  is  worthwhile  to  view  ih<*  inpiii  before  running  SMP  just  to  make  sure  the  run 
is  set  up  correctly.  To  check  the  uiput.  select  SMPAM  main  menu  option  9.  Figure  9, 
and  option  1  of  the  next  submenu.  1  igur'-  13. 

Upon  paging  through  il;e  input  file,  we  notice  the  speeds  and  sea  states  are  wrong. 
The  example  problem  has  two  SjXH-'dh.  10  and  20  knots,  and  only  one  sea  state.  While 
It  i.«  nece.^^ary  to  match  ^pr.rd.n  vnih  tur  time  hi^^iory  conditions,  the  time  liistory  sea 
stales  are  vSelected  iiuie[>riideully  in  STIi.  However,  running  four  sea  states  is  a  wast(‘ 
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MODIFY  SMP  SYSTEM  SPECIFICATIONS 

Note  that  path  changes  require  starting 
from  the  drive  letter  and  root  directory 

List  of  Options 

1.  Help 

2.  HALO  PROGRAM  PATH-C:  \HPRO_FOR 

3.  HALO  GRAPHICS  SCREEN  DRIVER-IBME 

4 .  HALO  PRINTER  DRIVER«EPSN 

5.  SMP  PROGRAM  PATH-D:\SMP 

6.  SMP  INPUT  PATH«D:\ALTINPUT 

7.  SMP  OUTPUT’  PATH«D:\SMPOUTPT 

8.  SMP  DATA  PATH«D:\SMPDATA 

9 .  SHIP  TYPE*DESTROYR 

10.  CURRENT  SHIP«DD965 

11.  VARIANT-H 

12.  CYCLE-6 

13.  TITLE-  from  HFDS  T-39.7  92-12-11 

14.  OPTION-2 

15.  Exit  this  menu 

Enter  option  ?  15 


Fig.  12.  Modify  SMP  systems  specifications  menu  after  changes. 


VIEW/EDIT  SMP  INPUT  FILE 


List 

of  Options 

1. 

View 

SMP  input  file 

2  . 

Edit 

SMP  input  file 

3  . 

Exit 

this  menu 

En 

ter  Option  ?  l 

Fig.  l.'h  \’ir\v/l-:dit  SMP  input  file. 


32 


of  time  ^Lnd  disk  space  when  only  one  is  needed. 


SMPEDIT 

Returning  to  the  previous  menu,  Figure  13,  and  selecting  option  2  brings  Fig¬ 
ure  14  to  the  screen.  SMPEDIT  requires  some  knowledge  of  the  SMP  input  format 
to  know'  which  variables  are  under  what  titles.  Looking  at  Reference  1  reveals  that 
ship  speeds  are  under  option  4,  HULL  PARTICULARS,  and  sea  states  are  under  option 
M,  SEA  STATE  AND  ROLL  ITERATION, 


EDIT  SMP93  INPUT  FILE 

CHANGE  ANY  3F  THE  FOLLOWING  OR  WRITE  CHANGES  TO  SMP  INPUT  FILE 


1 

- 

TITLE 

2 

- 

RUN  OPTIONS 

3 

- 

PHYSICAL  UNITS 

4 

- 

HULL  PARTICULARS 

5 

- 

LOADING  PARTICULARS 

6 

- 

UNDERWATER  HULL  GEOMETRY 

7 

- 

BILGE  KEEL(S) 

e 

- 

SKEG(S) 

9 

RUDDER (S) 

10 

- 

PROPELLER  SHAFT  BRACKET  SET(C) 

1] 

- 

FIN(S) 

12 

- 

MOTIONS  AT  A  POINT 

13 

- 

RELATIVE  MOTION 

14 

- 

SEA  STATE  AND  ROLL  ITERATION 

15 

- 

EDIT  ANNOTATION 

16 

WRITE  CHANCES  TO  SMP  INPUT  FILE  AND  EXIT 

ENTER 

USER 

OPTION  :  4 

Fig.  14.  Edit  SMP93-PC  input  file  main  menu. 


Again  the  user  selects  llie  options  lo  change  and  follows  the  submenu  directions  to 
make  llir  desired  changes.  Selecting  option  4.  brings  Figure  15  to  the  screen.  Ciiange 
the  spe(*ds  lo  20  knots  maxinuiin  and  10-knol  increments  aus  stated  in  the  problem 
stalcrncnl . 

Heiuin  U;  tlie  SMPEDIl  niaui  menu  and  select  option  14  to  change  the  sea  slate. 
Figur<*  l(i  displays  the  other  ivfx*  of  submenu.  Here  the  user  first  determines  a  course 
of  action,  deleting,  creating,  oi  clianglng  the  data,  and  then  specifies  w'luch  variatde  to 
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HULL  PARTICULAR  VARIABLES  AND  CURRENT  VALUES  ARE: 

OPTION 

VALUE 

1 

Length  between  perpendiculars 

529.0000 

2 

Beam  at  midships 

54.9000 

3 

Draft  at  midships 

20.3300 

4 

Displacement  in  long  tons 

8282.00 

5 

Design  speed  in  knots 

25.0000 

6 

Increment  for  speed 

5.0000 

7 

Model  Length  (0  for  full-scale) 

0.0000 

8 

TO  EXIT  THIS  MENU 

ENTER 

OPTION  NUMBER  TO  CHANGE  VALUES:  5 

Fig.  15.  Hull  particulars  menu. 


act  on.  After  deleting  the  extra  significant  wave  heights,  10.7,  16.4,  and  29.6  feet,  the 
user  returns  to  the  SMPEDIT  main  menu.  In  most  cases,  the  same  sea  states  are  used 
for  SMP  and  STH  so  most  interesting  conditions  can  be  selected  from  the  SMP  output. 

It  is  possible  to  delete  in  the  SMP  input  file  the  sea  state  that  would  be  later 
used  when  making  time  history  runs.  This  is  because  STH  uses  the  response  transfer 
functions  to  calculate  time  histories,  and  the  response  transfer  functions  are  virtually 
independent  of  sea  state.  The  only  non-linearity  is  in  the  lateral  mode  responses  which 
depend  on  amplitude  dependent  roll  damping.  STH  does  type  of  roll  iteration  as  SMP 
does  to  pick  the  correct  roll  transfer  function.  So  it  is  possible  to  calculate  the  response 
transfer  functions  for  one  sea  state  and  time  histories  for  another  sea  state  using  those 
transfer  functions. 

Note  that  it  is  not  necessary  to  sj»ecify  the  motion  points  in  the  SMP93-PC  input 
file  now  to  generate  motion  point  time  histories  later.  However,  if  there  is  some  question 
as  to  the  exact  conditions  to  specify  later,  calculating  motion  point  response  with  .SMP 
would  shed  some  light  on  which  conditions  are  worst.  To  specify  a  point,  select  either 
option  12  or  1.3  and  follow  the  submenu  instructions.  Further  explanation  is  in  Edit 
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Ln  u>  ro 


SEA  STATE  AND  ROLL  ITERATION 


4  SIGNIFICANT  WAVE  HEIGHT(S)  ARE  USED.  THEY  ARE  : 
6.2000  10.7000  16.4000  29.6000 


SINGLE  AM-.  TUDE  STATISTIC  USED  =  2.0000 

STATISTIC  Name  =  SIGNIFICANT 


OPTIONS  ARE 

Delete  a  significant  wave  height 
Create  a  significant  wave  height 
Change  single  amplitude  statistic 
Change  statistic  name 
EXIT  THIS  MENU 

ENTER  OPTION  :  1 


Fig.  16.  Sea  slate  anJ  roll  iteration  menu. 


Storage  Options 


1.  Save  changes  to  new  file  with  updated 
cycle  number 

2.  Overwrite  the  original  input  file  if  variant  has 
not  changed,  otherwise  create  a  new  file  with 
the  same  cycle  number  and  updated  variant 

VARIANT  CHANGED  NO 


Enter  Option  ?  2 


Fig.  17.  SMPCDIT  output  storage  options  menu. 


SMP  input,  page  12. 

As  a  further  input  file  check,  it  is  useful  to  make  a  hydrostatic  SMP  run  by  entering  2 
at  the  EDIT  SMP  input  file  main  menu  (Figure  14),  for  Hun  Options  and  setting  OPTN 
equal  to  1.  Only  after  the  hydrostatics  run  is  it  possible  to  View  ship  hydrostatics 
or  Hull  plot  with  the  SMPAM.  The  rest  of  the  run  procedure  is  the  same  as  the  full 
SMP  run  (0PTN=2).  After  checking  the  hydrostatics,  the  user  needs  to  edit  the  input 
file  again  to  set  OPTN  to  2  or  3.  For  our  example,  we  assume  the  input  file  is  correct 
with  respect  to  hydrostatics  and  hull  shape. 

Entering  16,  for  Write  changes  to  SMP  input  file  and  exit,  brings  the  user 
to  Figure  17.  The  variant  has  not  changed  with  just  changing  the  speeds  and  sea  states; 
select  2  to  overwrite  the  file.  The  current  ship  is  still  DD965H6  .  INP.  SMPEDIT  updates 
the  application  meinager’s  current  ship  automatically  upon  exiting  SMPEDIT  when  the 
variant  or  cycle  change. 

Running  SMP93-PC 

Now  that  the  input  Hie  is  correct,  the  user  can  run  SMP93-PC,  main  menu  option 
10,  and  expect  results.  The  screen  displays  a  run  log  while  SMP93-PC  is  running.  This 
data  is  also  written  to  the  run  log  file.  SMPOUTPT\DESTROYR\DD963H6.TEX.  A  run  of 
one  sea  state  and  seven  speeds  run  takes  about  40  minutes  on  a  486DX/25+. 

When  SMP93-PC  is  through.  Figure  18  a))pears  on  the  screen  giving  the  user  the 
option  to  delete  or  save  SMP93-PC'  output  files.  Selecting  an  option  toggles  between 
yes  and  no.  or  save  and  delcie. 

Save  whatever  files  ar<-  necessary  for  future  work,  typically  the  hull  plot,  origin,  and 
speed  polar  files.  Generating  tune  lii'.tdries  onlv  requires  the  origin  file,  DD965H.ORG, 
which  is  automatically  saved  in  siilnlirec  tory  SMPDATA\DD965.  Saving  the  hull  plot  file 
enables  the  user  to  use  the  SM I'.A M  111’ I, I’ LOT  option.  The  speed  polar  files,  SPD  and 
SPT.  arc  for  generating  speed  |>olar  jilois. 

Enter  17  to  return  to  the  S.MI’AM  main  menu  ( Figure  9)  and  then  enter  12  to  return 
to  PKEDICT  main  meini  (l  igure  S). 
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List  of  Options  (Note  that  SAVE=Y) 
Selection  of  option  toggles  between  Y  and  N 


1.  Help  9.  RMS  file  =  N 

2.  Potential  file  »  N  10.  Severe  notion  file  =  N 

3.  Coefficient  file  «  N  11.  Speed  polar  data  file  =  N 

4.  Load  coefficient  file  *  N  12.  Speed  polar  text  file  =  N 

5.  Hull  plot  file  «  Y  13.  Lateral  coefficient  file  ■=  N 

6.  Load  response  operator  file  =  N  14.  Lateral  excitation  file  =  N 

7.  origin  file  =  Y  15.  Save  all  files  above 

8.  Response  operator  file  «  N  16.  Save  no  files  above 


17.  Exit  this  menu 
Enter  option  ? 

Fig,  18.  Files  to  save  after  running  SMP  menu. 

RUNNING  STH 

To  launch  the  STH  Application  Manager  (STHAM),  enter  2  at  PREDICT  main 
menu  (Figure  8).  This  brings  the  STHAM  main  menu,  Figure  19,  to  the  screen.  Again 
it  will  be  necessary  to  change  the  STH  system  specifications  to  match  the  SMP  input 
path  and  current  ship.  This  is  carried  out  much  like  the  SMPAM  system  specification 
change*?  and  will  not  be  demonstrated  again. 

STHEDIT 

After  correctly  setting  the  current  ship  and  paths,  the  next  step  is  to  generate  a 
STH  input  file.  Choose  STHAM  main  menu  option  6,  Edit  STH  input,  and  bring 
up  the  EDIT  STH  Ship/Sea  Conditions  for  menu,  Figure  20.  This  screen  has  all 
pertinent  data  to  make  SI  II  runs,  hm  the  default  values  may  not  be  the  desired  ones. 
Each  variable  has  a  number  to  the  left  of  it.  which  is  referred  to  as  a  line  number  by 
this  menu.  As  the  in.sl  run  ions  slate,  simply  enter  the  number  of  the  line  to  change  and 
tlie  new  value,  separated  by  a  comma. 

To  get  more  choices  for  a  wave  point,  ship,  or  sea  condition  line  number,  first 
increase  ike  total  number  of  choices  for  that  variable.  The  line  numbers  automatically 
shift  as  the  number  of  six'f^ls.  headings  (hdngs),  significant  wave  heights  (sigwh),  modal 


sxmuiAtion  tike  history  applications  manager 

Current  Ship  +  Variant  ■  OCEANA 


List  of  Options 


1.  HELP  8. 

2*  STH  System  Specification  9. 

3.  Change  STH  data  path  10. 

4.  Change  Ship  11. 

5.  View  STH  Run  Summary  12. 

6.  Edit  STH  input  13. 

7.  Run  STH 


14.  QUIT 


View  ACTH  Run  Summary 
Edit  ACTH  input 

Run  ACTH  (Mot/vel/acc  at  a  point) 
View  ACTH  ERROR.TEX  file 
Plot  Data 

Convert  ACTH  data  format 
(COLLECT  binary  to  ASCII) 


Enter  Option  ?  2 


Fig.  19.  STH  application  manager  main  menu. 


EDIT  STH  Ship/Sea  Conditions  for  DD965H 


Time  history  parameters 

1.  Sample  ratee  4.00  eps 

2.  Start  time®  0.  sec 

3.  Stop  time-  1200.  sec 

4 .  Roll  statistic-  2 . 

No  of  Ship/Sea  conditions 
^  .  No  of  speeds-  l 
No  of  hdngs-  1 
No  of  &igvh-  1 
No  of  taodal-  1 
No.  of  wave  points-  o 
(for  relative  motion) 


Enter  no  of  line  you  wish 
to  change  and  value. 

Type  Wave  Point  Line,  0 
change  wave  point. 

Type  0,0  to  accept 
all  lines  ? 


10.  Sea  type-LC 


[  LC-longcrested  seas  ] 
[  SC-shortcrested  seas  ] 


Wave  Points  ^for  Relative  Motion) 
Xloc  Yloe  Zloc  Name 


Ship  Conditions 
SHPSPD  HEAD 

Xnots  deg 

11.  V-20.0  12 .  H-  23. 


Sea  Conditions 
SIGWH  TMODAL 

feet  sec 


13.  S- 


6.20 


14.  T- 


Fig.  20.  Edit  STll  Ship/Sea  conditions  menu  before  changes. 


periods  (tmodal),  and  number  of  wave  points  change. 

Relative  motion  time  histories  require  some  forethought  because  the  wave  points 
need  to  be  specified  in  the  STH  input  file  and  again  in  the  ACTH  input  file.  If  the 
points  specified  in  the  two  input  files  are  not  identical,  .ACTH  will  not  run. 

The  two  sea  conditions  for  the  example  are;  20  knots,  head  seas  (0  degrees),  6.2- 
foot  significant  wave  height,  and  9-second  modal  period;  and  10  knots,  beam  seats  (90 
degrees),  6.2-foot  significant  wave  height,  and  7-second  modal  period.  Again,  note  the 
significant  wave  height  does  not  have  to  match  that  used  for  the  SMP  run. 


Time  history  parameters 

1.  Sample  rates=  4  sps 

2.  Start  tiine=  0  sec 

3.  stop  tiTnc=  1200  sec 

4 .  Roll  statistic=  2 

No  of  Ship/Sea  conditions 

5.  No  of  speedG=  2 

D .  No  of  hdngs*=  2  * 

7 .  No  of  sigwh«  1 

8.  No  of  tmodal-  2 

9.  No.  of  wave  points=  0 
(for  relative  motion) 


Enter  no  of  line  you  wish 
to  change  and  value. 

Type  Wave  Point  Line,  0 
to  change  wave  point. 

Type  C,0  to  accept 
all  lines  ?  0,0 


EDIT  STH  Ship/Sea  Conditions  for  DD965H 
10.  Sea  type“LC 


[  LC= longer es ted  seas  ] 
(  SC®shortcrested  seas  ] 


Wave  Points  (for  Relative  Motion) 
Xloc  Yloe  Zloc  Name 


:onditions 


Sea  conditions 


SHPSFD 

HEAD 

SIGWH 

TMODAL 

)cnots 

deg 

feet 

sec 

11.  v=  20 

12.  V=  10 

13. 
14  . 

90 

0 

15.  S=  6.2 

16.  T= 
17  .  T= 

Fig.  21.  Edit  STll  Sliip/Sca  conditions  menu  after  changes. 


Enter  5,2  to  set  the  nuinl)rr  of  speeds  equal  to  two.  Enter  12,10.0  so  the  two 
speeds  are  10  and  20  knots.  It  ivipnrtant  in  include,  the  decimal  point  when  making 
changcf.  Twenty  knots  alread>'  exists,  being  left  over  from  a  previous  run.  Increases 
in  sliip  licading  and  modal  yieriod  arc  made  in  the  same  fashion. 

Once  the  changes  are  complete.  Figure  21,  entering  0,0  brings  up  Figure  22.  PRE¬ 
DICT  automatically  generates  sea  conditions  for  the  full  matrix  of  possible  combinations 
of  ship  speed,  heading,  significant  wave  height,  and  modal  period  and  includes  them  in 
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the  input  file.  This  screen  displays  the  chosen  sea  o^iditions  and  number  of  possible 
combinations,  in  this  case  eight  (2  speeds  x  2  headings  x  1  significant  wave  height  x  2 
modal  periods).  The  new  run  numbers  are  consecutive  to  previous  runs  with  this  ship 
and  variant,  so  existing  data  is  not  overwritten  by  accident.  It  is  possible  to  override 
this  by  choosing  another  starting  run  number. 


The  t'sllowing  Ship/Sea  conditions  have  been  selected 

Speeds  (knots)  =  20,  10 

Headings  (deg)  =  90,  0 

Signif.  wave  hts  (ft  or  m)  =6.2 
Modal  wave  periods  (sec)  =  9,  7 

There  are  a  total  cf  8  condition (s) 

(  2  SPD  *  2  HDG  *  1  SWH  *  2  MWP  ) 


The  next  starting  STH  run  =  i 
Do  you  want  to  change  the  next  starting  STH  run  (Y/N)  ?  N 


Fig.  22.  STH  ship/sea  conditions  and  run  number  selection  screen. 


EDIT  STH  INPUT  for 

DD965H 

List  of  Options 

1.  Accept  the  n«v  STH 

input 

2 .  Edit  the  STH  input 

using  the 

full  screen  NORTON 

Editor 

Enter  Option  ?  2 

Fig.  23.  Edit  STH  input  file  menu. 


The  next  screen.  Figure  23.  gives  the  user  the  option  of  one  Itist  editing  of  the  input 
file  using  Norton^^’  Editor^.  Accepting  the  input  file  (option  2),  means  running  the 
entire  matrix  of  combinations.  Usually,  the  conditions  matrix  has  many  superfluous 
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entries.  In  our  example,  we  have  a  matrix  of  eight  conditions,  but  are  only  interested 
in  two.  In  that  case,  the  user  should  edit  the  file  using  Norton^^  Editor  (option  2J.  In 
Norton^*^  Editor,  •’imply  delete  the  unwanted  sea  conditions,  change  the  total  number 
of  sea  condition  i  the  correct  value,  Md  renumber  the  remaining  sea  conditions. 
While  this  may  seem  tedious,  it  actually  takes  less  time,  uses  less  disk  space,  and  is 
much  easier  than  keeping  track  of  all  the  extra  runs. 


D;\SMJ>DATA\DD965 

D:\STHDATA\SODD965H 

DESTROYR 

DD965 

H 

6 

FEET 

DD965  SPIP  ST/JllLlZATION  STUDY  ARMORED  TRIMMED  RRS  STAB  9/23/88 

NO  OF  WAVE  POINTS®  0 

List  of  Wave  Points 
NO  XLOC  YLOC  ZLOC  NAME 

8 

1,4,0,1200,20,90,6.2,9,2,“LC' 

2,4,0,1200,10,90,6.2,9,2, "LC" 

3,4,0,1200,20,0,6.2,9,2,“LC" 

4,4,0,1200,10,0,6.2,9,2, “LC" 

5,4,0,1200,20,90,6.2,7,2, "LC" 

6,4,0, 1200,10, 90,6.2, 7,2, "LC" 

7,4,0,1200,20,0,6.2,7,2, "LC" 

8,4,0,1200,10,0,6.2,7,2, "LC" 


Fig.  24.  STIl  input  file  before  deleting  superfluous  conditions. 

The  example  h<is  six  unwanted  conditions,  so  the  user  should  choose  to  edit  the  file 
(option  2).  Figures  24  and  25  show  the  input  file.  STH .  INP.  before  and  after  the  changes. 
PREDICT  also  updates  the  ship  s|)ecific  and  generic  STH.AM  input  file,  DD965H.INP 
and  STHAM.INP,  at  this  time. 

If  editing  STH  .  INP  outside  the  application  manager,  change  the  number  of  STIl  run.s 
in  STHAM.INP  and  STH\Iioo(  Variant.  INP  to  match  that  in  STH.  INP. 


41 


D:\SKPDATA\DD965 
D : \STHDATA\SODD96  5H 
DESTROYR 
DD965 
H 
6 

FEET 

DD965  SPIP  STABILIZATION  STUDY  ARMORED  TRIMMED  RRS  STAB  9/23/88 
NO  OF  WAVE  POINTS®  0 

List  of  Wave  Points 
NO  XLOC  YLOC  2LOC  NAME 

2 

1,4,0,1200,20,0,6.2,9,2,*LC'' 

2,4,0,1200,10,9  0,6.2,7,2,  -LC’* 

Fig.  25.  STH  input  file  after  deleting  superfluous  conditions. 

Running  STH 

STH  generates  longcrested  or  shortcrested  six-degree-of- freedom  timehistorie.;  at  the 
origin  (LCG  at  waterline  on  centerline).  Longcrested  waves  have  all  the  wave  energy 
coming  from  one  direction.  STH  shortcrested  waves  use  a  cosine  squared  spreading 
function  to  spread  the  wave  encrg\  over  ±90®  from  the  primary  heading.  Longcrested 
runs  are  very  quick,  on  the  order  of  a  minute  per  condition,  and  shortcrested  runs  take 
about  10  minutes  per  condition  on  a  •liSGDX/254-. 

To  run  STH  with  the  curr<‘ni  ship  and  input  file,  the  user  selects  STHAM  main 
menu  option  7,  Run  STH.  STll  writes  progress  reports  to  the  screen  and  to  the  STH 
run  summary  file,  STHLOG.TEX.  whih*  it  runs.  The  time  histories  are  saved  to  the 
files  STHDATA\S0DD965H\SR1  .DAT  and  SR2-DAT.  When  through,  STH  returns  to  the 
STHAM  main  menu. 

RUNNING  ACTH 

After  STH  calculates  ihr  origin  liin<*  histories,  the  next  steps  in  generating  motion 
at  a  point  time  histories  are  to  generate  an  ACTH  input  file  and  run  ACTH. 
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ACTHEDIT 


From  the  STHAM  main  menu,  select  option  9,  Edit  ACTH  input,  to  bring  up  the 
first  ACTHEDIT  submenu,  Figure  26.  The  ACTH  editor  works  much  the  same  way  as 
SMPEDIT.  There  is  the  first  submenu  with  the  listing  of  the  main  parts  of  the  input 
file,  e.g.  point  locations  and  channels.  The  user  selects  the  option  and  follows  the 
instructions  for  further  defining  the  variables,  e.g,  entering  point  locations.  The  point 
location  f  “  the  example  is  a  boom  tip  off  the  destroyer  fan  tail,  station  20.1,  15  feet 
starboard  oi  centerline,  and  40  feet  up  from  the  baseline. 

ACTH  uses  the  same  point  location  coordinate  system  as  SMP^  with  the  origin  at 
the  forward  perpendicular,  on  the  centerline  and  baseline.  The  x  direction  is  longitu¬ 
dinal  along  the  hull  and  uses  station  numbering,  with  the  forward  perpendicular  being 
station  0  and  station  numbers  increasing  aft.  Y  is  positive  to  port  and  z  is  positive  up. 


EDIT  ACTH  INPUT  MENU 
Current  Ship  +  Variant  =  DD965H 

List  of  options 


1, 

2, 

HELP 

Edit 

Wave  Point  Locations 

5. 

Select  STH  Runs 

3  . 

Edit 

Point  Locations 

6. 

Select  OUTPUT  format 

4  . 

Edit 

channels 

7  . 

Exit  this  menu 

Enter  Option  ?  3 


Fip.  2^  I.dn  A('TH  input  mcnu. 

Selecting  option  3  from  llie  EIDIT  ACTH  INPUT  MENU  brings  up  the  point  selection 
menu.  Figure  27,  which  disfdays  fxjinls  from  the  previous  run.  Select  option  1  to  modify 
an  existing  point  and  bring  up  the*  Modify  existing  point  submenu,  Figure  2S.  Enter 
the  number  of  the  point  to  modif>.  Tticn  at  the  new  prompt.  Figure  29,  enter  the  new 
location  and  name.  sef>arated  by  commas.  PREDICT  returns  to  the  previous  menu  so 
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the  user  may  enter  the  next  point  to  modify.  Enter  0  to  return  to  Point  Selection 
menu.  Now  the  user  has  the  choice  to  delete  the  extra  locations  or  to  simply  not 
save  those  channels. when  selecting  the  channels.  Delete  and  add  points  in  the  same 
manner  as  modifying  them.  Entering  a  4  returns  the  user  to  the  main  ACTH  edit  menu. 
Figure  26. 

ACTH  PROGRAM  -  Point  Selection 
Current  Ship  «  DD965 

Point  Reference  System  Point  Description 

XLOC  -  station  number  NO.  XLOC  YLOC  ZLOC  NAME 

(0»FF,  10-MIDSHIP, 20«=AP) 

YLOC  -  pos.  to  port  1  6.00  -16.0  45.0  ALMOST  THE  BRIDGE 

from  centerline  2  16,00  .0  70.0  HZIX)  DECK  BULLSEYE 

ZLOC  -  pos.  up  from  baseline 


SELECTIONS 


Fig.  27.  ACTH  program  point  selection  menu. 


1.  Modify  existing  point 

2.  Add  a  new  point 

3.  Delete  existing  point 

4.  Exit  this  menu 


Enter  selection  no  ?  1 


Edit  wave  point  locations  in  the  same  fashion  as  ship  point  locations.  If  relative 
motion  (w'ave)  points  were  specified  in  the  STH  runs,  it  is  possible  to  calculate  relative 
motion  time  histories  with  ACTH  as  long  as  the  point  locations  are  the  same.  But  just 
because  the  STH  runs  have  wave  poi  its.  does  not  mean  the  ACTH  runs  have  to  have 
liicm  also.  However,  in  where  the  prcvioui^  ACTH  run  asked  for  wave  points, 

and  the  current  STH  run  does  not.  then  the  previous  wave  point  locations  need  to  be 
deleted. 

The  user  chooses  which  response  time  histories  to  save  by  editing  the  channels,  EDIT 
ACTH  niain  menu  option  4.  Figure  30  shows  the  Channel  selection  menu.  Again 
channel  selections  from  the  previous  run  are  left  over  and  might  need  modification. 
Each  of  th.e  menu  selections  has  its  own  submenus  which  prompt  the  user  for  a  channel 
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ACTH  PROGRAM  -  Modify  existing  point 
Current  Ship  *  DD965 


Point  Reference  System  Point  Description 


XLOC  *  station  number 

(0«FP,  10-MIDSHIP, 20-AP) 

NO, 

XLOC 

YLOC 

ZLOC 

NAME 

YLOC  -  pos,  to  port 

1 

6.00 

-16.0 

46.0 

ALMOST  THE  BRIDGE 

from  centerline 

ZLOC  -  pos.  up  from  baseline 

2 

16.00 

.0 

70.0 

HELD  DECK  BULLSEYE 

Enter  no,  of  point  you  want  to  modify.  Type  0  to  quit  ?  1 


Fjg.  2S.  ACl'lI  progiarn  point  selection  -  modify  existing  point  submenu. 


ACTH  PROGRAM  -  Modify  existing  point 
Current  Ship  «  DD965 


Point  Reference  System  Point  Description 


XLOC 

-  Station  number 

NO. 

XLOC 

YLOC 

ZLOC 

NAME 

(0-FP, 10»hIDSHIP.20=AP} 

YLOC 

-  pos.  to  port 

1 

6 . 00 

-16 . 0 

45.0 

ALMOST  THE  BRItXJE 

from  centerline 

2 

16 . 00 

.  0 

70.0 

HELD  DECK  BULLSEYE 

ZLOC  “  pos.  up  from  baseline 


Enter  XLOC,  YLOC,  ZLOC,  and  NAME  (up  to  20  characters)  for  Point  1 
{ separated  by  cornnas )  20.1,  -15.0,  40.,  BOOM  TIP  UP 


I'm.  2'J.  ACTH  pi'opi.tMi  I'cnr.i  selection  -  entering  new  point  submenu. 
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number  to  operate  on  and  which  response  to  store  in  that  channel,  i.e.  whether  it 
is  vertical,  lateral,  or  longitudinal;  displacement,  velocity,  acceleration,  or  force.  See 
Channel  selection,  page  23,  for  the  possible  channel  choices  and  brief  descriptions. 
Figures  31*35  show  the  menus  used  when  modifying  the  channel  selection  to  include 
vertical  acceleration  of  the  boom  tip. 


ACTH  PROGRAM  -  Channel  Selection 
Current  ship  DD965 

List  of  Channels  with  Associated  Points 
CHANNEL  POINT 


NO. 

NAME 

TYPE 

UNIT 

SYSTEM 

NO, 

XLOC 

YLOC 

ZLOC 

NAME 

1 

WAVEHT 

DSP 

FEET 

EARTH 

0 

.  00 

.  0 

,0 

Origin  (LCG , 

CL, 

WP) 

2 

SWAY 

DSP 

FEE! 

EARTH 

0 

.  00 

,  0 

,0 

Origin  (LCG, 

CL, 

WP) 

3 

HEAVE 

DSP 

FEET 

EARTH 

0 

.  00 

,  0 

.0 

Origin  (LCG, 

CL, 

WP) 

A 

ROLL 

ANC 

DEG 

EARTH 

0 

.  00 

.  0 

,  0 

Origin  (LCG, 

CL, 

WP) 

5 

PI  rcH 

ANG 

DEG 

EARTH 

0 

.  00 

,  0 

.  0 

Origin  (LCG, 

CL, 

WP) 

SEIi:CTIONS 


1.  Help  4.  Add  a  new  channel 

2.  Show  additional  channels  5.  Delete  a  channel 

3.  Modify  an  existing  channel  6.  Exit  thio  menu 

Enter  selection  no  ?  3 


Fig.  30.  ACTH  program  channel  selection  menu. 


EDIT  ACTH  input  menu  (Figure  2G)  option  5.  Select  STH  Runs,  selects  the  STIl 
runs  to  use  vhen  calculating  the  .ACTH  time  histones.  Figure  36  shows  the  Select  STH 
runs  menu.  This  is  the  same  melliod  of  selecting  sea  conditions  used  with  the  STH 
editor.  PREDICT  gels  the  shij'/sca  conditions  from  current  ship  subdirectory.  The 
desired  ship/sea  conditions  are  flagged  (•)  and  the  undesired  ones  unfiagged.  ACTH 
runs  will  be  made  for  whichever  STIl  runs  match  the  flagged  sea  conditions.  When 
fiaqginq  or  unflagging,  enter  the  number  exactly  a.'  shown  on  the  screen,  including 
decimal  point  and  separate  with  a  comrna.  For  example,  to  flag,  enter  30.0,F. 

The  output  can  be  either  binar\'  or  .ASCII  in  Ojition  6  of  the  EDIT  ACTH  main 
menu  (Figure  26).  The  default  output  format  is  binary. 

EDIT  ACTH  main  menu  (Figure  26)  Option  7,  Exit  this  menu,  brings  up  the 
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ACTH  PROGRAM;  •  Modify  existing  channel 


NO. 

NAME 

CHANNEL 

POINT 

TYPE 

UNIT 

SYSTEM 

NO. 

XLOC 

YLOC 

ZLOC 

1 

WAVEHT 

DSP 

FEET 

EARTH 

0 

.00 

.0 

.  0 

2 

SWAY 

DSP 

FEET 

EARTH 

0 

.00 

.0 

.0 

3 

HEAVE 

DSP 

FEET 

EARTH 

0 

.00 

,  0 

,  0 

4 

ROLL 

ANG 

DEG 

EARTH 

0 

.00 

,0 

.  0 

5 

PITCH 

ANG 

DEG 

EARTH 

0 

.00 

.  0 

.  0 

6 

YAW 

ANG 

DEG 

EARTH 

0 

.  00 

.  0 

.  0 

7 

VERT 

ANG 

DEG 

EARTH 

2 

16.00 

.0 

70.0 

HELO  DECK  BULLSEYE 


Enter  no.  of  channel  you  want  to  modify.  Type  0  to  quit  ?  7 


Fig.  31.  ACT  II  program  modify  existing  channel  menu. 


ACTH  PROGRAM  -  Modify  existing  channel 


I  CHANNEL 

I  NO.  NAME  TYPE  UNIT  SYSTEM 


POINT 

NO.  XLOC  YLOC  ZLOC 


7  VERT  ANG  DEG  EARTH 


2  16.00 


C  ZLOC  NAME 

0  70.0  riKLO  DECK  BULLSEYE 


Channel  selection 


1. 

Wave  height  (Origin) 

6. 

i 

Forces  at  a  Point 

2. 

Origin  motion 

7. 

Total  Force  Ratio,  TFR 

3  . 

Motions  at  a  Point 

6. 

TFR  Estimator,  TFE 

4  . 

Relative  motion 

9, 

TFR  Angle,  TFRDIR 

5  . 

Wave  height  at  a  Point 

10. 

Horizontal  Force  Angle,  HFDIR 

11.  Exit  this  menu 


Enter  selection  nurnber  ?  3 


rig.  32.  Modify  rxistuig  clianiud  sulmicnn  -  ACTII  channel  seh’Clion  menu. 
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ACTH  PROGRAM 


Point  Selection 


Current  Point  •  2  ;  NAME  *  HELO  DECK  BULLiSEYE 

Point  Reference  Sy  tem  Point  Description 


XLOC  *•  station  number 

(0-FP, 10-MIDSHIP, 20«AP) 
YLOC  -  pos-  to  port 

from  centerline 
ZLOC  -  pos*  Up  from  baseline 


Enter  no.  of  point  you  want  to  use  ?  1 


Fig.  33.  Modify  existing  channel  submenu  -  ACTH  program  point  selection  menu. 


ACTH  PROGRAM  - 

Modify 

existing  channel 

NO .  n;.ME 

CHANNEL 

TYPE  UNIT  SYSTEM  NO. 

XLOC 

POINT 

YLOC  ZLOC 

NAME  j 

7  LONG 

DSP  FEET  EARTH  1 

20.10 

-15.0 

40.0 

BOOM  TIP  UP 

Channel  selection 

Notion 

at  a 

point 

1 .  Longitudinal  (default) 

2  .  Lateral 

3.  Vertical 

Enter  select i on  number  7  3 

I'jg.  3-!.  Modify  rw^wwg  cliaiiiifl  Milnnrnu  -  ACTIl  program  motion  at  a 
poini  iiHidf 


NO.  XLOC  YIOC  ZLOC  NAME 

1  20.10  -15.0  40.0  BOOM  TIP  UP 

2  16.00  .0  70.0  HELO  DECK  BULLSEYE 
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ACTH  PROGRAM 


Modify  existing  channel 


CHANNEL 

NO.  NAME  TYPE  UNIT  SYSTEM 


POINT 

NO.  XLOC  YLOC  2LOC 


NAME 


7  VERT  DSP  FEET  EARTH 


1  20.10  -15,0  40.0  BOOM  TIP  UP 


Channel  type  selection 

1.  Displacement  (default) 

2.  Velocity 

3 .  Acceleration 

Enter  selection  number  ?  3 


Fig.  35.  Modify  existing  channel  submenu  •  ACTH  program  response  selec¬ 
tion  menu. 


ACTH  PROGRAM  -  Select  STH  runs 
Current  Shjp  •  DD965 


Runs  are  selected  by 
flagging  (*)  specific 
Ship/Sea  conditions 


1  SELECTIONS  | 

1  . 

All  conditions  1 

2. 

Speeds  j 

3  . 

Headings  ' 

4  . 

Signif.  wave  hciqhtt  I 

5. 

Modal  wave  periods  | 

6. 

Exit  this  menu  1 

Enter  selection  no  ? 


ShiD/Sea  Conditions 


SPEEDS  HEADINGS 


10  (•)  0  (*) 

20  (♦)  90  (*} 


SIGWH  MODAL  WP 

6.2  (*)  7 

9  (*) 


I-'ig.  ’M).  ACTH  prograni  STIl  run  selection  menu. 
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same  series  of  questions  as  exiting  STHEDIT  (Figure  23),  i.e.  whether  to  number  the 
runs  consecutively  and  whether  to  accept  the  input  file.  The  input  file  can  be  edited 
using  Norton^^^  Editor  from  within  PREDICT,  or  outside  of  PREDICT  altogether. 
The  files  STH\ACTH . INP,  STHAM.INP,  and  DD965H.INP  are  updated  at  this  point  and 
the  user  returns  to  the  STHAM  main  menu.  Figure  19. 

Running  ACTH 

Select  STHAM  main  menu  (Figure  19)  option  10,  Run  ACTH  (Mot/vel/acc  at 
a  point),  to  run  ACTH  with  the  current  ship  and  input  file.  ACTH  w’rites  progress 
reports  to  the  screen  and  DR*  .TEX,  and  to  the  ACTH  run  summary  file,  TRIALLOG  .TEX, 
while  it  runs.  The  output  files  DRl.*  and  DR2.*^  are  written  to  the  COLLECT  data 
directory  and  SPRooi  Variant  subdirectory,  DATA\SPDDy65H. 

ACTH  runs  very  quickly,  on  the  order  of  1  minute  per  condition  and,  when  through, 
returns  to  the  STHAM  main  menu.  If  an  ACTH  run  fails  to  finish,  viewing  ERR0R.TEX, 
STH.AM  main  menu  (Figure  19)  option  11,  can  provide  clues  as  to  why. 

DATA  ANALYSIS  AND  PLOTS 

Choosing  STH  main  menu  (Figure  19)  option  12,  or  PREDICT  main  menu  (Fig¬ 
ure  8)  option  3,  generates  ACTH  motion  at  a  point  time  history  plots  on  the  terminal 
screen  or  to  a  printer.  In  cither  case,  the  plotting  process  and  menus  are  the  same 
regardless  of  starling  point.  The  plot  feature  has  two  submenus,  Figures  37  and  38. 
Tables  13  and  15,  respectively,  give  a  Ijiicf  description  of  the  submenus’  options.  Data 
Anr^lysis  and  Plots  (COLLECT),  page  26  c.'tplains  the  menu  choices  more  fully. 

It  nia\'  be  necessary  to  cliatigc  the  DATA  directory  or  the  cunent  TRIAL  subdi- 
rectoi  v'  using  options  oi  3  to  selc(  i  the  desired  runs:  liowevcr,  it  is  not  necessary  for 
llii:-.  e.\ain|)lc.  Olhci  change"  K)  data  piilhs  au'  made  using  option  1.  which  modifies 
C0MPSYS.TEX  with  the  same  jmocedure  used  to  modify  SMPSYS.TEX  and  STH5YS.TEX. 

C'linose  submenu  option  -1,  Figure  37.  Get  new  run  to  select  llie  run  to  plot  from  the 
li.st  of  available  runs  in  tlie  cm  icnl  TRIAL  siilnliieclory,  Figure  39.  For  the  e-xarnple, 

III-  fwierisk  IS  u  vvil'i  card  for  tlu  various  output  exicMsjon.s  For  ACTil,  they  are  A.SC,  CON, 
TUX.  aiul  IN'l 
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CATALOG  DATA  ANALYSIS  AND  PLOTTING  MENU 


Current  DATA  Analysis  Path  =  D:\DATA\SPDD965H 
Current  DATA  Run  =  1 


List  of  Options 

1.  Computer  System  Specification 

2 .  Change  DATA  Analysis  drive 

3.  Change  TRIAL 

4 .  Get  new  run 

5.  Plot  data 

Enter  Option  ? 


Fig.  37.  CLTMAIN  main  menu. 


CATALOG  PLOT 


RUN  NUMBER  “ 

2 

GRAPH  TYPE  - 

SPLOT 

START  TIME  » 

011152L 

MAR93 

NPCHAN  ■=  3 

RUN  TIME 

1200.0 

SEC 

PLOT  TIME  » 

0.0  TO  120.0  SEC 

PCH 

NAME 

UNITS 

MEAN 

STDDEV 

PEAK 

YMAX 

YMIN 

YINC 

1 

WAVEHT 

DSP 

FEET 

0.00 

1,51 

-5.08 

1.00 

-1.00 

1.0( 

2 

SWAY 

DSP 

FEET 

-0.00 

0.66 

2. 61 

1 . 00 

-1.00 

l.Ot 

D 

HEAVE 

DSP 

FEET 

0.00 

1.50 

4.55 

1.00 

-1.00 

l.Oi 

1 

HELP 

5 

PROGRAM  OPTIONS 
CHANCE  Y-SCALE 

9 

DISPLAY 

DATA 

2 

GET  RUN 

6 

CHANCE  X-INCRMT 

10 

DISPLAY 

TEXT  FILE 

3 

EDIT  CHANNELS 

7 

TIME 

11 

EXIT 

4 

GRAP}1  TYPE 

e 

PLOT  DATA 

Enter  option  ? 


Fig.  38.  Dalalog  plot  menu. 


Fig.  39.  Get  new  ACTH  run  menu. 


chose  the  second  run  to  plot. 

To  plot  the  datd.,  the  user  selects  option  5,  Plot  data.  This  brings  up  the  DATALOG 
PLOT  menu,  Figure  38. 

For  example,  plot  the  last  600  seconds  of  the  wave  height,  heave,  and  boom  tip 
vertical  acceleration  channels.  Choose  option  3,  Edit  channels,  and  select  the  desired 
channels  from  the  complete  channel  list  by  typing  their  line  numbers,  Figure  40.  Time, 
option  7,  allows  the  user  to  enter  a  new  begin  and  end  time,  Figure  41. 


Fig.  40.  Datalog  plot  -  edit  channels  submenu. 


After  changing  the  time,  enter  8  to  PLOT  DATA.  Should  the  plotting  scales  be  inap- 
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SELECT  START  AND  STOP  TIMES 

Run  time  is  1200.0  seconds 
Current  plot  time  is  .0  to  1200.0  seconds 

En'-er  new  plot  start  and  stop  times  in  seconds  ?  600.,  1200. 
Fig.  41.  Datalog  plot  -  time  subscreen. 


SET  Y  SCALES 


PCH 

NAME 

UNITS 

MEAN 

STDEV 

PEAK 

YMAX 

YMIN 

YINC 

N 

1 

WAVEHT 

DSP 

FEET 

0.00 

1 . 51 

-5.08 

6.00 

-6.00 

6.00 

N 

2 

HEAVE 

DSP 

FEET 

0. 00 

1 . 50 

4 .55 

5.00 

-5.00 

5.00 

N 

3 

PITCH 

ANG 

DEG 

-0. 00 

0 . 11 

-0.36 

0.40 

-0.40 

0.40 

N 

4 

VERT 

ACC 

G-S 

-0.00 

0.05 

0.17 

0.20 

-0.20 

0.20 

N 

5 

ROLL 

ANG 

DEG 

0.00 

0.23 

-0.74 

0.80 

-0.80 

0.80 

N 

6 

SWAY 

DSP 

FEET 

-0.00 

0  .  S6 

2.61 

3.00 

-  00 

3.00 

LIST  OF  OPTIONS 

To  change  plot  channel  scales  enter  either: 

N  for  nice  number  scales  for  all  plot  channels 

Plot  channel  number/  N  for  nice  number  scales  for  a  plot  channel 
Plot  channel  number,  YMAX,  YMIN  and  YINC  to  select  manual  scales 
0  to  Exit 

?  0 


Fig.  42.  Sel  Y  scales  menu. 
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propriate,  return  to  the  DATALQG  PLOT  menu  and  choose  option  5,  CHANGE  Y  SCALE. 
The  CHANGE  Y  SCALE  screen,  Figure  42,  has  instructions  detailing  the  various  methods 
of  scaling.  Entering  N  (nice  number  scales)  causes  the  Y  scale  to  be  autoscaled  for 
the  selected  channels  and  is  sufficient  for  most  cases.  Plotting  the  data  again  yields 
Figure  43.  Currently,  the  plotting  capability  is  a  maximum  of  16  channels  with  8,600 
data  points  per  channel,  or  20  minutes  at  8  samples  per  second. 


Fig.  43.  Example  lime  history  plot  of  data. 


To  exit  PREDICT  and  reiurii  to  1)().S.  the  user  simply  selects  Exit  this  menu 
whenever  possible. 


CONCLUDING  REMARKS 


Using  PREDICT,  t  he  applirations  manager  described  in  this  report,  it  is  possible  to 
generate  both  frequency  and  time  domain  ship  motion  output  from  a  single  ship  input 


file.  Absolute  or  relative  motion  at  a  point  time  histories  can  be  developed.  The  time 
histories  could  be  used  as  input,  representing  realistic  ship  motion,  for  other  system 
models. 

This  report  also  provides  the  source  code  to  SMP93-PC,  and  the  appropriate  list 
of  references  that  fully  document  the  Standsud  Ship  Motion  Program,  the  Simulated 
Time  History  Program,  and  the  Access  Time  History  Program. 
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APPENDIX  A:  STANDARD  SHIP  MOTION  PROGRAM  -  PC 

This  appendix  has  a  listing  of  the  Navy  Standard  Ship  Motion  Program  PC  (SMP93- 
PC)  version.  The  SMP  version  used  as  the  b2iseline  for  the  personal  computer  (PC) 
version  is  SMP84  which  is  fully  documented  in  References  1  and  2.  The  theory  and 
calculation  methods  are  the  same  between  the  CDC,  VAX,  and  PC  versions. 

The  PC  version  is  coded  in  Lahey  Fortran  £uad  makes  extensive  use  of  overlays.  The 
main  differences  between  SMP84  and  SMP93-PC  are:  an  extra  frequency  range  for 
response  calculations,  an  “ORG  file  only”  run  option,  and  splitting  the  SPL  file  into  a 
SPD  and  SPT  file.  Other  differences  involve  differences  between  Fortran  brands  and 
in  overlaying.  Binary  files  from  the  CDC,  VAX  and  PC  are  not  interchangeable,  due 
to  differences  in  binary  structure  between  machines,  not  due  to  differences  between  the 
program  versions. 

EXTRA  FREQUENCY  RANGE 

The  extra  frequency  range  is  especially  tailored  for  small  craft  response  and  used 
when  the  roll  period  is  less  than  or  equal  to  nine  seconds.  The  extra  frequency  set, 
FREQ3,  was  added  in  subroutine  READ.  The  new  frequency  set  is;  0.2,  0.3,  0.4,  0.5, 
0.55.  0.575,  0.6,  0.625,  0.65,  0.675.  0.7.  0.725,  0.75,  0.775,  0.8,  0.825,  0.85,  0.875,  0.9, 
0.95.  1.0.  1.1,  1.2,  1.3,  1.5,  1.8,  2.0,  2.5,  3.0.  3.5.  and  4.0 

ORG  STOP  AND  START  OPTION 

With  th  is  option  activated.  SiMP93-PC  can  either  stop  after  generating  the  ORG 
file  or  It  can  start  using  an  existing  ORG  file.  This  provides  a  time  saving  if  only  the 
ORG  file  is  wanted.  OPT.N  must  lie  either  4  or  5  to  start  using  an  existing  ORG  file. 
S.MPCDIT  has  this  option  available 

The  flag.  ORGOPT.N".  was  added  to  Data  Card  Set  2,  Program  Options,  as  the 
seventh  variable  occupying  spacc.s  36  -  40.  Possible  values  are; 

0  =  Normal  run 

1  =  Stop  after  generating  ORG  file 

=  Start  with  existing  ORG  file  (OPTN:»4  or  5) 


o 


SPLITTING  SPL  FILE 


The  unformatted  SPL  file  was  split  into  two  files:  a  formatted  SPT  file  and  an 
unformatted  SPD  file.  This  was  a  minor  change  done  to  avoid  memory  problems.  The 
SPT  file  has  the  speeds,  headings,  and  response  names  and  data.  The  SPD  file  hats  the 
RVS/Toe  table  data. 
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APPENDIX  B:  PREDICT  OVER\TEW 


While  PREDICT  is  designed  to  shield  the  user  from  the  DOS  directory  and  file 
structure,  some  knowledge  of  it  is  useful  during  installation  and  when  choosing  values 
for  system  specifications.  Also  understanding  the  file  naoning  conventions  is  important 
to  select  the  desired  input  file.  The  default  directory  names  and  path  given  here  can 
be  changed  using  the  system  specification  options  or  editing  SMPSYS.TEX,  STHSYS  .T£X, 
and/or  CQMPSYS.TEX. 

SYSTEM  requirements 

PREDICT  runs  from  DOS  and  is  written  in  Microsoft^^^  Fortran  5.1  and  uses  Halo 
Professional  92^  for  graphics  capability.  The  memory  requirements  for  the  executables 
are  about:  1.6  MB  in  SMP  directory,  0.65  MB  in  STH  direciory,  and  0.25  MB  in  C0L0CT91. 
On  a  486DX/25+  MHz  machine,  a  1  sea  state,  7  speed  SMP  run  takes  about  40  minutes; 
a  STH  longcrested  run  takes  about  1  minute  per  condition,  a  STH  shortcrej^ted  run 
takes  about  10  minutes  per  condition;  and  an  ACTH  run  takes  about  30  seconds  per 
condition. 

.ASCII  time  history  output  files  are  available  for  use  with  in-housc  graphics  program.s. 
Appendix  A  documents  tlie  ohange.s  rrrade  to  the  (>DC  version  of  SMP84  so  it  would 
run  on  a  personal  computer. 

PREDICT  DIRECTORIES 

BATFILE  is  a  directory  that  ha>  batch  (BAT)  hies  for  the  dppIicat:on^  managers 
arid  should  be  added  lo  the  user's  path,  statemcru  in  AirrCEXEC.BAT.  The  batch  hies 
are:  PREDICT.BAT,  SHPAM.BAT.  STHAM.BAT.  and  CLTAM.3AT.  They  run  the  programs 
PREDICT,  SMPMAIN,  and  STHMAI.X 

There  are  also  directories  for  th.f  ronimercial  software.  Fortran  and  Halo  Profes 
sional  92w^  used  by  PREDICT.  The  contents  of  tiiose  directories  depends  on  the  soft¬ 
ware  inslallat'oc.  Table  16  shows  the  cietaull  }>atus  for  ti,e  system  specifications.  Fig¬ 
ure  i  shows  the  organ izalion  of  TTILDICT  o.na  the  rciationship  *b(’twe(M'  the  ap;)licaLion 
managers  and  the  fjrograms. 
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Table  16.  Default  paths  for  system  specifications. 


System  specification 

Default  path 

Halo^^’  program  path 

C:\HPR0_F0R 

graphics  sciv.en  driver 

IBHE 

HaJo^*'''  printer  driver 

EPSN 

SMP  program  path 

D:\SMP 

SMP  input  path 

D;\SMPINPUT 

SMP  output  path 

DASMPOUTPT 

SMP  data  path 

D • \SMPDATA 

STH  program  path 

n : \STE 

STH  data  path 

dasthdata 

COLLECT  program  path 

D:\C0L0CT91 

COLLECT  data  path 

D : \DATA 

SMPAM  DIRECTORIES 

There  are  four  SNIP  related  direclcriei.  whose  default  nam.'s  axe  SMP,  SMPINPUT, 
SMPOUTPT,  and  SKPDATA.  See  Figure  44  for  a  description  of  tue  SMPAM  directoiy 
tree.  The  directory  SMP  has  all  the  executables  for  SMPAM  and  a  HE* subdirectory 
containing  the  on-line  help  files.  Also  in  SMP  are  the  scratch  and  data  files  ter  storing 
the  current  value  of  SMPAM  va.i  vbles.  See  Table  17  for  a  listing  and  description  of 
these  files 

SMPINPUT  contains  sxilxJircclorics  that  contain  the  SMP  input  files.  Typically,  these 
subdirectories  have  descriptive  names  such  as  CARRIER  or  BOATS,  and  input  files  fitting 
those  descriptions  are  grouped  together.  These  subdirectory  names  are  known  as  tlie 
5/tj;/  Typt  .n  the  system  specifications.  The  input  files  have  the  root,  variant,  and  cycle 
num6fr  formal  with  an  INP  c.xlension 

The  output  from  SMP  is  split  into  tlie  remaining  two  direciories,  SMPOUTPT  and 
SMPDATA.  Basically,  SMPOUTPT  liav  most  cf  the  ASCII  data  and  SHPDATA  has  the  binary 
data.  Again,  the  data  are  actually  located  in  subdirectories  whose  names  reflect  the 
input  file  and  path  used  in  their  creation.  In  SMPOUTPT,  the  subdirectory  names  are  the 
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Table  17.  SMP  Applications  Manager  scratch  and  data  files. 


File  name 

Description 

BFILES.IHP 

Keeps  track  of  which  SMP  output  files  to 
save  or  delete. 

DENSITY.DAT 

Previous  values  for  generating  density  plot. 

P0LAR.DAT 

Previous  values  for  generating  polar  plot. 

SHIPNAM.TEX 

Directory  listing  of  Ship  Type  subdirec¬ 
tory;  only  INP  extensions  shown. 

SHIPTYP.TEX 

Directory  listing  of  SMP  input  path  direc¬ 
tory;  only  directories  shown. 

SMPSYS.TEX 

Current  path  and  ship  for  SMPAM. 

TEMP . BAT 

BAT  file  to  send  user  back  to  main  menu. 

Ship  Types  and  have  a  direct  correlation  to  SMPINPUT.  The  file  names  are  the  same  as 
in  SMPINPUT  except  for  the  extension. 

In  SMPDATA,  the  subdirectory  names  are  the  roois  of  the  input  files.  Here  the  fiL* 
nanies  drop  the  cycle  number.  The  SMP  Applications  Manager  (SMPaM)  creates  tlie 
output  subdirectories  automatically. 

STHAM  DIRECTORIES 

The  Simulated  Time  History  Applications  Manager  has  four  directories,  whose  de¬ 
fault  names  are:  STH.  SMPDATA,  STHDATA.  and  DATA.  The  first  two  directories,  STH  and 
SMPDATA,  contain  the  input;  STHDATA  and  DATA  contain  the  output.  Figure  45  shows  the 
default  directory  organization  of  tin-  STHAM  directories  used  by  PREDICT.  Figure  5 
of  Reference  3  shows  another  jiossihle  directory  organization  for  use  without  PREDICT. 

STH  holds  the  execulalile.''  fi"  the  application  menu  choices  and  various  log  and 
scratch  files.  See  Table  18  for  a  list  and  description  of  the  log  and  scratch  files.  SMPDATA 
IS  the  same  directory  ised  by  the  S.MP.-XM  to  store  the  binary  SMP  output  used  as  input 
oy  STH. 

Both  STHDATA  and  DATA  have  the  same  structure  and  are  more  fully  described  in 
fleferei.ee  3,  pages  1.5-  Ifi.lC.  DATA  i  the  COLLECT  data  path  in  the  system  specifi- 
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CONFIG 

ACTH  generic  channel  data 

ERR0R.TEX 

ACTH  run  time  errors 

RUN. TEX 

Contains  run  number  and  number  of  chan¬ 
nels  needed  to  write  file  configuration, 
CONFIG 

SHIPNAM.TEX 

Directory  listing  of  Ship  Type  subdirec¬ 
tory;  only  INP  extensions  shown. 

SHIPTYP.TEX 

Directory  listing  of  SMP  input  path  direc¬ 
tory;  only  directories  shown. 

STHSYS.TEX 

Current  paths  and  ship  for  STHAM. 

STHAM.INP 

Generic  name  for  ship  dependent  STHAM 
input  file. 

TEMP.BAT 

BAT  file  to  send  user  back  to  main  menu. 

cations  despite  the  fact  it  contains  ACTH  output.  The  data  for  various  ships  are  in 
subdirectories  with  names  based  on  the  SMP  ship  origin  transfer  function  file.  STHDATA 
subdirectory  names  have  the  form  SDRooi  Variant,  e.g.  S0DD965H.  The  output  file 
names  are  SRA^.TEX  and  SRA'’.DAT,  where  is  the  run  number.  Table  19  gives  a  list  of 
the  type  of  data  the  files  contain. 

DATA  subdirectory  names  have  the  form  SP.ffoot  Variant,  e.g.  SPDD965H.  The  output 
file  names  are  DRAMNT,  DRA^.CON.  DRA^.ASC,  and  DRA^.TEX,  where  N  is  the  run  number. 

Table  19  gives  a  list  of  the  type  of  data  the  files  contain. 

PLOTTING  DIRECTORIES 

The  plotting  programs  are  spread  between  two  directories  SMP  and  COLOCTSl .  HULLPLOT 
and  POLAREGA  are  in  SMP  and  CLTMAIN  and  DLPLOT  are  in  C0L0CT91. 

HULLPLOT  reads  the  HPL  for  data.  POLAREGA  reads  the  SPD,  SPT,  P0LAR.DAT, 
and  DENSITY.DAT,  The  HPL,  SPD,  and  SPT  files  are  SMP93-PC  output.  P0LAR.DAT 
and  DENSITY.DAT  contain  the  ivirameters  from  the  laist  plot  to  use  as  defaults  for  the 
current  polar  or  density  plots. 
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rROOT  DIRECTORY 


SMPMAIN.EXE 

SMPHST.EXE 

SMPEDIT.EXE 

SMP.EXE 

HULLPLOT.EXE 

POLAREGA.EXE 


SMPSYS.TEX 

SHIPNAM.TEX 

SHIPTYP.TEX 

BFILES.INP 

POLAR.DAT 

DENSITY.DAT 


*.HLP  (15  files) 


-SMPINPUT 


DESTROYR 


DD965H6.INP 


■SMPOUTPT 


DESTROYR 


DD965H6.TEX 
DD965H6.0UT 
DD965 ,TLT 
HSTAT.TEX 


SMPDATA 


DD965 


DD965H.ORG 
DD965H.HPL 
DD965H .SPD 
DD965H .SPT 


F'lg.  4-1.  SMI’  a|)|)li(at ions  manager  directory  structure. 


-ROOT  DIRECTORY 


-  STHDATA 


•SMPDATA 


C0L0CT9; 


ACTH.EXE 

ACTHED’-T.EXE 

STH.EXE 

STHMAIN.EXE 

WRTASC2.EXE 


S0DD965H 


SPDD96SH 


ACTH.INP 

STH.INP 

STHAM.INP 

DD965H.INP 


ERROR.TEX 
RUN. TEX 
STHSYS.TEX 
SHIPNAM.TEX 
SHIPTYP.TEX 


*.HLP  (18  files) 


SRA'.TEX 

SRA'.DAT 

STHLOG.TEX 


DRA'.INT 
DRA'.COK 
DR.V.  ASC 
DR  A'.  TEX 
TRIALLOG.TEX 
CONFIG 


ANALYSIS 


RTPLQT.DAT 


DDses 


PREDMAIII.EXE 
CLTMAIi;  .EXE 
DLFLOT.EXE 
COMPSYS.TEX 


DD965K.ORG 


Fig.  ‘15.  STII  applications  niaiiagci  clircclory  slructuie. 


Table  19.  STH  file  naimes  and  descriptions. 


File  name 

Description 

Type 

SRJY.TEX 

STH  output  echoing  run  parameters  and 
screen  output 

ASCII 

SRJV.DAT 

STH  time  history  output 

Binary 

STHLOG.TEX 

STH  run  log  summary  file 

ASCII 

DRJY.INT 

ACTH  time  history  output 

Binary 

DRA^.CON 

ACTH  file  to  store  run  dependent  CON¬ 
FIG  data 

Binary 

DRA^.ASC 

ACTH  time  history  output 

ASCII 

DRA^.TEX 

ACTH  output  echoing  run  parameters  and 
screen  output 

ASCII 

TRIALLOG.TEX 

ACTH  run  log  summary  file 

ASCII 

CLTMAIN  reads  the  ACTH  output  file,  *.INT,  for  data.  It  also  uses  COHPSYS.TEX 
to  determine  path,  directory,  and  current  ship  data.  This  file  is  also  updated  auto- 
iiiaLicdlly  by  PREDICT  when  the  current  ship  is  changed.  CLTMAIN  is  the  driver  for 
DLPLOT. 

DLPLOT  plots  data  from  runs  selected  in  CLTMAIN  according  to  the  plot  definition 
selected  within  DLPLOT.  RTPLOT.TEX  has  plot  definition  data  from  the  previous  plot 
for  Datalog  plots.  RTPLOT.TEX  is  in  the  SPRoot  PananAANALYSIS  subdirectory.  This 
file  and  subdirectory  is  created  automatically  when  entering  CLTMAIN. 

Printers 

The  graphics  programs  POLAREGA  and  DLPLOT  support  a  limited  number  of 
printers.  They  are:  HP  Lascr.let^^'  11  and  Ill.  HP  Paintjet^^V  HP  Deskjet^^E  Epson. 
Okidata,  Gemini,  and  IBM  Proprinlcr^  .  To  support  other  printers,  modify  the  PAR- 
RA’i  array  values  in  POL.MIEGA  and  DLPLOT,  recompile,  and  link.  Values  for  the 
printer  array.  PARRA't'.  are  in  the  Halo^^’  reference  manuals'^'. 
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APPENDIX  C:  STHAM  SHIP  DEPENDENT  INPUT  FILE 


PREDICT  allows  switching  between  different  ships  while  running,  and  STH  and 
ACTH  both  use  input  from  generically  neuned  input  files,  STH.INP  and  ACTH.INP. 
Furthermore,  STH  and  ACTH  have  some,  but  not  all,  data  in  common.  To  get  around 
this  naming  and  data  problem,  PREDICT  uses  a  ship-dependent  input  file  that  stores 
all  the  data  required  for  STH  and  ACTH  runs.  PREDICT  copies  the  ship  dependent 
file  to  STHAM. INP  and  uses  the  paths  and  file  names  from  this  file  as  the  current  values, 
overriding  the  data  in  STHSYS  .TEX.  Then  PREDICT  simply  extracts  the  required  STH 
or  ACTH  data  to  use  as  starting  points  when  editing  or  creating  the  generic  input  files, 
STH.INP  and  ACTH.INP. 

The  ship  dependent  input  file  name  follows  the  Root  Vonant.INP  convention,  e.g. 
DD965H.INP.  They  are  located  in  the  STH  data  path  directory,  e.g.  STH. 

When  editing  STH.INP  to  remove  unwanted  sea  conditions  outside  PREDICT,  the 
current  ship-dependent  input  file  and  STHAM. INP  should  also  be  edited  to  match  tiie 
sea  conditions  in  STH.INP.  PREDICT  updates  these  files  automatically  when  edited 
from  within  PREDAM. 

The  format  of  these  file.s  is  easy  to  understand,  as  each  line  has  a  commented  ex¬ 
planation  at  the  end  of  the  file.  The  file  hais  three  main  data  blocks.  The  first  gives 
data  that  PREDICT  uses  to  find  other  files  and  to  assign  run  numbers  for  STH  and 
.ACTH  output  file.s.  The  second  block  has  the  STH  data,  from  sample  rate  to  the  point 
local lon.s.  The  third  Irlock  has  the  ACTH  data,  from  wave  points  to  flagged  conditions. 
TIh'  wa\e  and  motion  point  data  are  held  in  common  between  STH  and  ACTH.  As  a 
rule,  the  flagged  ACTH  conditions  should  be  a  subset  of  the  available  STH  conditions. 

.'Mthoiigh  easy  to  follow  .  the  plac«>meni  of  text  and  numbers  is  important.  Otherwise, 
the  file  cannot  be  r«‘ad  correctly  and  will  he  useless.  Figure  4G  shows  the  format  of  the 
sliip-dcpendcnt  input  file  The  line  containing  numbers  from  0  to  9  is  not  part  of  the 
file  and  i.s  included  in  this  iigure  a--  .i  spacing  aid. 
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1234S67e90I2345678901234$€7890X234567e901234S678901234S67e901234S67e90EXTRA 

SHI?  TYPE-DESTROYR 

$HZF-0D965 

VAJIZAKT«H 

CYCLE-6 

TITLE-DD965  SPIP  STABILIZATION  STUDY  ARMORED  TRIMMED  RRS  STAB  9/23/0B 

OUTPUT-  I 

NEXT  ACTH  RUN-  I 
NO  or  ACTH  RUNS-  2 

NEXT  STH  RUN-  1 
NO  OF  STH  RUNS-  0 

SAMPLE  RATE-  4 
START  TIME-  0 
STOP  TIME-  1200 
STATISTIC-  2 
SEA  TYPE-LC 

NO  OF  SPEEDS-  2 
NO  OF  HEADINGS-  2 

NO  or  SICNiriCANT  WAVE  HEIGHTS-  1 
NO  or  MODAL  WAVE  PERIODS-  2 

SPEEDS-  20,  10 
HEADNCS-  90,  0 
SICVH-  6.2 
TMODAL-  9,  7 

NO  OF  WAVE  POINTS-  0 

NO  OF  POINTS-  1 

POINT  1  XLOC-  20.1  YLOC-  -15. C  2LOC-  40.0  NAME-BOOM  TIP  UP 
i;0  OF  CHANNELS-  7 

List  ol  CDsnnels  with  Atiocisted  Points 
CHANNEL  POINT 


NO. 

NAME 

TYPE 

UNIT 

SYSTEM 

NO. 

XLOC 

YLOC 

2LOC 

NAME 

1 

WAVEHT 

DSP 

FEET 

EARTH 

0 

0 . 00 

0.0 

0.0 

Origin 

(LCC, 

CL. 

wp) 

2 

SWAY 

DSP 

FEET 

EARTH 

0 

0.00 

0.0 

0.0 

Origin 

( LCG , 

CL, 

WP  ) 

3 

HEAVE 

DSP 

FEET 

EARTH 

0 

0.00 

0.0 

0.0 

Origin 

{LCG, 

CL, 

WP) 

4 

ROLL 

ANC 

DEG 

'EARTH 

0 

0.00 

0.0 

o 

o 

Origin 

(LCG, 

CL, 

WP) 

5 

PITCH 

ANC 

DEG 

EARTH 

0 

0.00 

0.0 

0.0 

Origin 

(LCG, 

CL. 

WP) 

6 

YAW 

ANC 

DEC 

EARTH 

c 

0.00 

0.0 

0.0 

Origin 

(LCG, 

CL, 

wp  ) 

7 

VERT 

ACC 

C-S 

EARTH 

1 

o 

o 

-15.0 

40  .  C 

BOOM  TIP  UP 

I  NO  OF  FLAGGED  SPEEDS-  2 

I  NO  or  FLAGGED  HEADINGS-  2 

NO  or  FLAGGED  SIGNIFICANT  WAVE  HEIGHTS-  1 
j  NO  Cr  FLAGGED  MODAL  WAVE  PERIODS-  2 

I  FLAGGED  CONDITIONS 

SPEEDS-  10,  20 
HLADNCS-  0,  90 
SIGWH-  6.2 
TMODAL-  7 ,  9 

12 34 567890 1234567 6901 234 S6 7690 1  2 34  567690 1  2 3456 78901 2 3456 7890 12 34 567e90EXTRA 


Fip.  IF.  Ship  clcpciulnil  inpnl  fih*  f(^rmal  for  time  liistory  applications  manager. 
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APPENDIX  D:  SMP93-PC  SOURCE  CODE  LISTING 


This  appendix  is  a  listing  of  the  source  code  similw,  but  not  identical,  to  Appendix  I 
of  Reference  1. 


C  SNP93  PROGIUN  LIBRARY  - 
*  PROGRAM  SNP03 


Standard  Ship  Motion  Prograa  (SMP93) 
<or  Paraonal  Conpatars 


Operating  Bvaten  MS-DOS  Veraion  4.01 
FORTRAN  77  using  Lahey  Fortran 
Overlay  linking  using  PLIMK86 


Bull  plot  and  Speed  Polar  plots 
done  in  separate  programs 
using  HALO  graphics  language 


C  SUBROUTIHE  LIST 


C  DECK  ACTFIN  -  active  fins 

SUBROUTIHE  ACTFIH  (IV,2ER0.V,0MGE.0MGE2,TAF) 


COMMON  /APPEND/  IBKSET.SBKSTK(2) .BKIMAG(2) ,BKFS(2) ,BKAS(2) . 

2  BKWD ( 2 ) , BKSTH ( 1 0 , 2 ) , BKHB ( 1 0 . 2 ) , BKLNTH , BKWDTH . 

2  BKWLCIO  2) ,BKAN(10.2) . NSKSET . SKIMAC(2 5 , SKFLS(2) .SKALS(2), 

2  SKAUSC2) ,SKHB(2),SKFLWL(;2) ,SKALWL(2) ,SKAUWLC2) , NRDSET .RDIMAG ( 2 ) , 

2  RDRFS(2) .RDRAS(2) ,RDRHB(2) .RDRFtfL(2) .RDRAWL(2) ,RDTFS(2) ,RDTAS(2), 
2  RDTHB(2).RDTFWL(2),RDTAWL(2).HSBSET.SBIHAG(2),S0BRFS(2) ,S0BRAS(2l 
2,S0BRRB(2) .S0BRFW(2) .S0BRAW(2) .SIBRFS(2) ,SIBRAS(2) .SIBRHB(2) , 

2  SIBRFW(2) ,SIBRAW(2) ,SBTFS(2),SBTAS(2) .SBTHB(2) .SBTFWL(2) , 

2  SBTAWLC  2 ) . HFNSET , FNIMAC ( 2 ) . FNRFS ( 2 ) . FKRAS ( 2 ) , 

2  FNRHB(2),FNRFWL(2),FNRAWL(2).FNTFS(2) .FKTAS(2) ,FKTHB(2) , 

2  F1ITFUL(2)  ,FHTAWL(2)  .HEXPRD.ENRI30(8)  ,ENRDS(8) 


COMMON  /FIHCOH/  lACTFN , IFCLCS .FCAIN(8) .FK(3) ,FA(3) ,FB(3) , 
2  FCLCS(8,2) 


COMMON  /PHYSCO/  II .TPI , PI . PIOT .DECRAD . RADDEC . VKMETR . METRVK . GRAV . 

2  RHO . GNU ,RHOS , RHOF . GNUS , CNUF .FTMETR .PUNITS . REYSCL 
COMPLEX  II 

CHARACTER»4  PUNITS(21 

REAL  TPI, PI .PIOT. DECRAD, RADDEC, VKMETR. METRVK. GRAV, RHO, GNU, RHOS, 

1  RHOF. GNUS, CNUF, FTMETR 

COMMON  /RLDBK/  PSUR{ 2S ) . BMK (2S ) .DK (25 ) . CAK ( 25 ) , HQ .RSPAN , HMNCHD . 

2  HAREA.HXCP.HYCP,H2CP,HCAMMA,KYHAT,HEAP..HLCS,RCC2) ,RSPAN(2) , 

2  RMNCHD(2),RAREA(2)  .RXCP{2)  .RYCP(2)  .R2CP(2)  .RGAMMA(2)  .RYHAK,.:)  , 

2  REAR(2),RLCi  \2) .S0(2) .SSPAN(2) .SMNCHD(2) .SAREA(2) ,SXCP(2) . 

2  SYCF(2),S2Cf ,2) .SCAMMA ( 2 ) , SYHAT( 2 ) ,SEAR(2) , SLCS( 2) , B0(2 )  . 

2  BSPAN(2).BMNCaD(2) .BAREA(2) ,BXCP(2).BYCP(2) .B2CP(25 .BGAMMA(2) , 

2  BYHAT(2),BEAR(2).BLCS(2) .F0{2) .FSPAN(2) ,FMKCHD(2) ,FAREA(2) . 

2  FXCP(2).rYCP(2) ,F2CP(2) .FCAM1A(2) . FYH AT(2) , FEAR ( 2 5 , FLCS h ) , 

2  P0(2.2) ,PSPAN(2,2) ,PMNCHD(2.2) . PAREA ( 2 . 2) , PXCP ( 2 , 2 ) , PYCP (2 , 2 )  , 

2  P2CP(2,2),PCAMMA(2.2) .PYHAT(2,2) .PEAR (2, 2) ,PLCS(2,2) . 

2  STADMPC 10) ,SRPDMP( 10,8) .ENCON.WPHI .TPHI , WMELM( 4 . 9) . SFELM(4 , 9 . 8 ) , 

2  REELM(4.9,8),PEELM(4 ,9 , 8 ) . FEELM(4 , 9, 8 ) , HEELM(4 . 9 , 8) . BEELM(4 .9 , 8) , 
2  ENWM,ENSF(8.8) .ENRE(8) .ENPE(8) .ENFE(8) ,ENHE(8) .ENBE(8) , 

2  ENEMV(8,8) ,ENRL(8) .ENPL(8) ,ENFL(8) .ENHL(8) , ENSL( 8 ) , ERBL(8) , 

2  EHSHP(8.8),RELM(4.9) .ITS(25) .RD(26),EDDY(8,25) ,RGB(2S) 


cn 


REAL  R0B1J«2692) 

SqUIVALEICE  (PSUR(l)  .ROBLXd)) 

COMPLEX  TAF ( 3 ) , FGC , CTERM . ZERO 

DO  10  I»l,3 
TAF(I)  «=  ZERO 
10  comiuE 

FGC  «  ((FK(1)-OMGE2*FK(3))+II*OKGE*FK(2))/(((FA(1)-OMGE2*FA(3))+ 

2  II*0MGE*FA(2))*((FB(1)-0HGE2*FB(3))+1I*0MGE*FB(2))) 

DO  30  K^I.IFISET 
XCP  «  FXCP(K) 

ARM  «  -  FMICHD(K)/6 
THAT  e  FYHAT(K) 

AP  »  PI*RH0*FSPAl(K)*(FM8CHD(K)/2)**2 
TEMP  «  FLCS(K) 

IF  (IFCLCS  .EQ.  1)  TEMP  =  FCLCS(IV,K) 

FZ  =  (RH0/2)*FAREA(K)*TEMP 
SIIGAM  «  S1I(FGAMMA(K)*DEGRAD) 

CTERM  e  FGC*URM*AP*0MGE2-II*0MGE*(ARM*FZ-3*AP)*V+FZ*V*V) 

Ml  =  1 

IF  (FIIMAG(K)  .EO.  2)  Ml  =  2 
•  Sm(lPO-GAMMA)=SIi(GAMMA)  FOR  FIB  OH  STBD  SIDE 
DO  20  M=1,M1 

TAF(l)  =  TAF(l)  -  SINGAM*CTERM 

TAF(2)  *  TAF(2)  ♦  YHAT*CTERM 

TAF(3)  =  TAF(3)  -  SlKGAM*XCP*aERM 

20  COBTIHUE 
30  COBTIHUE 

RETURH 

EHO 

C  DECK  ADRES 

SUBROUTIBE  ADRES  (HL. BU  .MOTV .MOTL.HJV ,HJL .H7 .RAOl ,PHS1 ,RA02. PHS2. 
2  OMEGA . HMOT .HPLABE . HOMEGA .RADDEC , COSMU . RHO , IPHS ) 

COMPLEX  MOTV (BMOT. HOMEGA) .MOTL( HMOT, HOMEGA) ,HJV(NMOT,BOMEGA) , 

2  RJL(HMOT.BOMEGA) .H7( HOMEGA) .ARES, TEMPL 

DIMEHSIOH  RAOKHOMEGA)  .PHSKBOMEGA)  ,RA02(N0MEGA)  ,PHS2(H0MEGA) , 

2  OMEGA(BOMEGA) 

DO  30  IsHL.HU 
DO  20  J  =  1 , HPLABE 
ARES  =  H7(l) 

DO  10  H=1,HM0T 
TEMPL  «  MOTL(B,I) 

IF  (J  .EO.  2)  MOTL(H.I)  *  -  MOTL(H.I) 

ARES  =  ARES  +  MOTV( H , I  )*HJV ( H , 1 )  ♦  MOTL(K , 1 ) *fi JL(K . I) 

MOTL(R.I)  *  TEMPL 
10  COBTIHUE 

TEMP  =  -  0.6«RR0»0MECA(1'»C0SM’J»AIHAC(ARES) 

IF  (J  .EQ.  !)  PACK  I  )  =  TEMP 
IF  (J  .EQ.  2)  RA02(I )  =  TEMP 
IF  (IPHS.EQ.l  .AHD.  J.EC  D  PHSKD  ■  0, 

IF  (IPHS.EQ.l  .AHD-  J.EC.:i  PHSId)  •  0 
20  COBTIHUE 
30  COBTIHUE 

RETURH 

EHD 

C  DECK  AIBPUT 

SUBROUTIBE  AIBPUT 

COMMOH  /ID/  SYSFIL.POTFIL.COFFIL.LCOFIL.lCARD.TEXriL.lPRIN. 

2  SCRFIL.HPLFIL.LRAFIL.ORCFIL.RAOFIL.RMSFIL.SEVFIL.SPDFIL, 

2  SPTFIL.LACFIL.LAEFIL 

IBTECER  SYSFIL.POTFIL.COFFIL.LCOFIL.ICARD.TEXFIL.IPRIN. 

2  SCRFIL.HPLFIL.LRAFIL.ORCFIL.RAOFIL.RMSFIL.SEVFIL.SPDFIL, 

2  SPTFIL.LACFIL.LAEFIL 
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COMNOI  /SNPSYS/  FIS. AS, SIS, SOS, SDS. HALOS, DEV, PRI.SKPPS.SHPIS. 

2  SMPOS , SMPDS , SHPTYPS .SHIPS . VARS , CYCLS , TITLES , OPTIOI , LSIS , LSOS . 

2  LSDS .LHALO^ LDEV , LPRI . LSKPPS . LSMPIS . LSMPOS , LSMPDS , LSEPTYPS , 

2  LSHIPS.LTITLES 
CHARACTER* lee  AS 

CHARACTER*80  FIS. SIS. SOS. SDS, TITLES 

CHARACTER*20  HALOS , DEV , PRH , SMPPS , SMPIS , SMPOS , SMPDS . SHPTYPS 
CHARACTER  SEIPS*6,VARS*2.CYCLS*2 
IITECBR*2  OPTIOI 

CHARACTER*4  ALIIE(20) 

FIS  ■  SIS(1:LSIS)//' .IIP’ 

OPEI  (UIIT»ICARD,FILE«FIS, STATUS® ’OLD’) 

L  *  0 

10  L  =  L  ♦  1 

IF  (M0D(L.60)  .EO.  1)  WRITE  (IPRII.IOOO)  (I, 1=1, 8) 

1000  FORMAT  (1H1.42X,21BI  IPUT  CARD  S//50X,6HC0LUMI/8X, 

2  8(9X.I1)/8H  CARD  .8(1081234667800)/) 

READ  (ICARD.lOlO)  ALINE 
WRITE  (IPRII,1020)  L. ALINE 
1010  FORMAT  (20A4) 

1020  FORMAT  (1X,I4.3X.20A4) 

IF  (ALIIE(l)  .IE.  ’STOP’)  GO  TO  10 

CLOSE  (Uin=ICARD) 

RETURN 

END 

C  DECK  ALAG 

F’JNCTION  ALAG(X) 

•  this  Tunction  sets  AL0G(X)=0  ehen  x=0 

IF  (X  .LE.  1.  E-08)  CO  TO  7 
ALAG=ALOG(X) 

GO  TO  8 

7  ALAG=0. 

8  RETURN 
END 

C  DECK  ALGRHG 

SUBROUTINE  ALCRIC  (N.W.S.AREA) 

•  This  Bubroutine  cosputet  the  Bree  under  the  curve  lor  a  particular 

•  spectruJD.  An  odd  nuaber  of  points  (frequencies)  should  be  used. 


DIHENSIOI  W(N) ,S(N) 

MN=N-2 

AREAeO. 

TEMP  «  0. 

DO  20  M=1  .MN,2 
A=W(M+2)-W(M) 

B=W(M*2)-W(M*1) 

C=W(Mtl)-W(M) 

PAREA  =  A*A/6.=(S(M)»(3.«C-A)/(A«C)*S(M*1)*A/(B*C)+ 
2  S(M42)*(2.=A-3.*C)/(4»B)) 

TEMP  =  PAREA 

IF  (PAREA  .LT.  0. )  TEMP  =  0. 

AREA  =  AREA  TEMP 
20  CONTINUE 

IF  (H0D(N.2)  .EO.  1)  CO  TO  30 
DELW  e  WfB)  -  w(N-l) 

DELS  e  S(N)  -  S(N-l) 

AREA  s  AREA  ♦  S(I-1)*DELW  ♦  .6»DELS»DELW 
30  CONTINUE 


AREA  *  ABSCAREA) 


KETURI 

BID 

C  DECK  AID 

SUBROUTIIE  AMD  (OMEGAE.TELEM.TV.TL) 


•  traPACKS  ZERO-SPEED  ADDED  MASS  AID  DANPIIG  AID  ADDS  FORWARD  SPEED 

•  TERMS 

COMNOI  /CH3D/  ZSIGMA ,SIGNIH.SIGNAX.V.S1IMU,C0SHU,VTSI . 

2  IHNII.IHHAX.IMDEL.LMIR.LMAX 

REAL  SIGMII,SlGMAX,V,SmMU,C0SMU.WTSI(4) 

IITEGER  ISIGMA, IMNIH, INMAX. IHDEL.LKIV.LKAX 

COMMOM  /EMVIOR/  V>:.MVK, MU, MMU, OMEGA. IOMEGA, SIGMA, ISIGMA.SIGWH. 

1  ISIGWH.TMODAL.MTMOD.IRABG.RAIG.RLANG.S.INMU.FRNUM.VFS 
INTEGER  NVK , NMU . IOMEGA , RSIGHA .NSIGWB , RTMOD ,NRANG , NINU(8 ) 

REAL  VK(8) ,MU(37.8) .OMEGAOO) .SIGNA(lO) ,SIGWH(4) ,TM0DAL(8) . 

2  RAIG(8),RLAIG(8).S(30,8).FRNUM(8).VFS(8) 


I 

I 

I 


COMMON  /PHYSCO/  II .TPI ,PI , PI07.DEGRAD. RADDEG . VKMETR.METRVK ,GRAV, 
2  RHO , GNU . RHOS , RHOF , GNUS , GIUF . FTMETR , PUNITS , REYSCL 
COMPLEX  II 

CHARACTER*4  PUNITS(2) 

REAL  TPI, PI, PIOT.DEGRAD, RADDEG, VKMETR.METRVK.GRAV, RHO, CHU, RHOS, 

1  RHOF, GIUS, GIUF, FTMETR 

COMMOK  /STATE/  LAT.VRT.LOADS. ADORES, SALT, HE AD, EXROLL, BKEEL 
LOGICAL  LAT . VRT . LOADS . ADDRES . SALT , HEAD . EXROLL, BKEEL 


I 

I 


COMPLEX  TELEM(4.9.10) 

COMPLEX  T3D(10),TV(3,3),TL(3.3) 
DIMENSION  LDX(6»6) 


DATA 

((LDXd 

,J).J 

=  1.6). I 

4/ 

1, 

0, 

0. 

0, 

0, 

0. 

4 

0. 

6, 

0, 

8, 

0, 

9, 

♦ 

0. 

0. 

2. 

0, 

4, 

0. 

4 

0. 

-8. 

0, 

6. 

0. 

10. 

♦ 

0. 

0. 

-4, 

0. 

3. 

0, 

♦ 

0, 

-9. 

0. 

-10. 

0, 

7/ 

DO  20  L=1.10 
T3D(L)  -  (0.0. 0.0) 

20  CONTINUE 

DO  40  L^LMIN.LMAX 
DO  30  K=a.4 

T3D(L)  =  T3D(L)  ♦  VTSI (K ^•TELEM(K . ISICKA .L) 
30  CONTINUE 
40  CONTINUE 

IF( .lOT.VRT)  CO  TO  3 
DO  I  1«1,3 
IDX=2*I-1 
DO  2  J«l,3 

JDX=2*J-1 
L=LOX(IDX, JDX) 

IF(L.EQ.O)  TV(I,J).(O.C.C.O) 

IK(L.GT.O)  TV(I.J>«T3D(L^ 

IF(L.LT.O)  TV(l,J)«TV(j.I) 

2  CONTINUE 
1  CONTINUE 

TV(I,3)«TV(2.3)4V#TV(:,2)/(I1*0MEGAE) 
TV(3,2)«TV(3.2)-V*TV(2.2)/(II*0MECAE) 
TV(3.3)«TV(3.3)^V*vn‘V(2.2)/0HECAE**2 
IF(.IOT.LAT)  CO  TO  6 

3  CONTINUE 

DO  4  1*1,3 

IDX*2*I 

DO  h  3*1,3 
JDX=2*3 


I 
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L«LDX(IDX,JDX) 

IF(L.Eq.O)  TL(I,J)«(0. 0,0.0) 

IFCL.GT.O)  TL(:,J)=T3D(L) 

IF(L.LT.O)  TL(I,J)«TL(J,I) 

-6  COITIIUE 
4  COITIMUE 

TL(1,3)«TL(1,3)-V*TI,(1,1)/(II*0KEGAE) 

11.(2, 3)«TL(2,3)-V*TL(2.1)/(II*0HF,GAE) 
TL{3,l)»TL(3,l)+V*TL(l,l)/ai*CMECAE) 
TL(3,2)«TL(3,2)+V*ri.(l,2)/ai*0KEGAE) 

TL(3,3)  «  TL(3,3)  V*V<>TL(  1 , 1  )/0MEGAE*^2 
C  COITIIUE 

RETURS 

EID 

C  DECK  AMDPRR 

SUBROUTIIE  AMDPRK  (PROMG .HPROMG) 

*  nondimaniionalizas  and  prints  z«ro-sp«ei  added  mass  and  damping 

COMMOI  /EHVIOR/  VK , HVK  , K’J .  WHU  .  OMEGA , IOMEGA  .SIGMA  , ISIGMA , SIGWH , 

1  I5IGWH .TMODAL .ITMOD . SKANG , RANG . RLAKG . S . NHMU , FRNUM . VFS 
INTEGER  IVK , KMU . IOMEGA , ISIGMA , NSIGWK . ITMOD , KRAIG ,HIMU(8) 

REAL  VK(8) .MU(37,8)  .0MEGA(30) .SIGMA( 10) ,SIGWH(4} .TM0DAL(8) . 

2  RAIC(8) ,RLAKC(8) ,S(30.8) .FRNUM(8) .VF3(8) 

COMMON  /GEOM/  X . ISTATN , Y ,2 .NOPSET ,LPP . BEAM .DRAFT.LCF. 

1  VCG  ,  GM  . DELGH  , HEBLA  ,  KPITCH  .  KROLL  .  KYAW  .  KY AWP.L .  AWP ,  VCB  ,  FBDX  ,  FBDY , 

2  rBD2 , SFREBD . XPT . YPT . 2PT . HPTS . LCB . GML . ASTAT . BSTAT , TITLE , M ASS . 

2  DISPLM , IPITCH . IROLL .  lYAW , lYAWRL . CREAVE , CPITCH . CHEAPI , CROLL , 

2  AHEAMX . VSURF , GIRTR . FBD2V , DBLWL . TLCB 

INTEGER  1ST ATK . ■OFSET( 26 ) , NFREBD . NPTS 
CHARACTER«4  TITLE(20) 

REAL  X (25 ) .Y( 10.25) ,2(10.26) ,FED2V(8 . 10) ,LPP .BEAM .DBLWL .TLCB , 

2  DRAFT, LCF, VCG, CM, DELGM, HEBLA, KPITCH. KROLL, KYAW, KYAWRL, AWP .VCB, 

2  FBDX (10), FBDY (10) .FBD2( 10) .XPT( 10) .YP7(10) ,2PT(10) .LCB.GKL, 

4  ASTAT(26) ,BSTAT(26) , MASS .DISPLM . IPITCfi . IROLL .lYAW . 

5  I YAWRL ,  CBF.AVE ,  CPITCH  ,  CHEAP  I .  CROLL .  AREAMX .  WSURF .  GIRTH  (25 ) 

COMMON  /lO/  SYSFIL.POTFIL.COFFIL.LCOFIL.ICARD.TEXFIL.IPRIH. 

2  SCRFIL.HPLFIL.LRAFIL.ORGFIL.RAOFIL.RMSFIL.SEVFIL.SPDFIL. 

2  SPTFIL.UCFIL.LAEFIL 

INTEGER  SYSriL.POTFIL.COFFIL.LCOFIL.ICARD.TEXFIL.IPRIS, 

2  SCRFIL.HPLFIL.LRAFIL.ORCFIL.RAOFIL.RMSFIL.SEVFIL.SPDFIL. 

2  SPTFIL.LACFIL.LAEFIL 

COMMON  /PHYSCO/  II .TPl .PI .PIOT.DECRAD .RADDEG  .VKMETR.METRVK.GRAV 
2  RRO  GNU.RHOS.RHOF.CIUS.CIUF.FTMETR.PUIITS.REYSCL 
COMPLEX  II 

CHARACTER«4  PURITS(2) 

REAL  TPI  .PI  .PIOT.DECRAD. RADDEG. VKHrrR.METRVK.CRAV.RHO.CN'J.RHOS, 
1  RUOF.CNUS.CNUP.FTMETR 

COMMON  /STATE/  LAT  .  VRT . LOADS . ADORES .SALT, HEAD , ENROLL .BKEEL 
LOGICAL  LAT.VRT, LOADS. ADORES. SALT. HEAD. EXROLL, BKEEL 

COMMON/TKLEM/TELEM 
COMPLEX  TELEMi4,V.lO' 

DIMENSION  LPWRf 10)  ,LOX( 1C) 

DIMENSION  *(10.6(10.30) 

COMPLEX  T.CDUM 
DIMENSION  PRCHGOO) 

DATA  LPWR  /O.C, 2. 1.0,2. 2.1. 1.2/ 

DATA  LDX  /1.3  6, 9. 2. 4. 6, 7.8. 10/ 

SRCDL*S0RT(CRAV/LPP) 

LMIN=) 

IF(.NOT.VRT)  LMIN-6 
LMAX=10 
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IFC.IOT.UT)  LKAX«4  ,  , 

DO  1 
A(I)«0. 

DO  7  J«l,IPROKG 
B(I,  J)r.O. 

2  COSTIKUii 

--  :.x  comitus  .  • 

WRITE  (IPRII.eOl)  TZTLE 
WRITE  (IPRII,602) 

DO  3  I0KEGA»1.IPA?MG 
DU  4  LoLNII.LMAX 
U.eLDX(L) 

iSCALr-RHO*»EBLA-'LPP**LPWR(L) 
liCALEeASCALE- SRGDl 

CALL  CPLVAL  (SIGMA .»SIGXA,TEL£«( 1 . 1 ,L) .PROHGClCrEGA) ,T, 

1  CDUM.IDUM) 

A(LL)^REAL(T)/(-PR0MC(IClKEGA)**2)/A3CALE 

B(LL,TOMEGA)»AlMAC(TVFr.OMa(iaKEGA)/BSCALE 

4  CONTINUE 

CMGND=PP,OHG(IOMEGA)/SRGJL 

WRITE  (IPR1H,604)  L'>NGHD  .  (A(L)  .L=l ,  10) 

3  COHTISUE 

WRITE  (IPRm.603) 

t-0  5  IOnEGA=l,!l?'<OKG 

OMGND»^PROMG ( IOMEGA  )  /SRGDL 

WRITE  (irRIN.SOA)  OMCI-’D  ,  (B(L. IOMEGA)  ,L=1 , 10) 

5  COKTIHl’E 

WRITE  (IPR1K.605) 

601  FORMAT  (IHl ,23X ,20A4//42X , 

2  46HZER0-SPEED  ADDED-MASS  AND  LAMPING  COEFFICIENTS//) 

602  FORMAT  (■  SON-DIMENSION AL  ADDED-MASS  ’ // 

1  '  SIGMA*  .3X. ’Ad.l)  ■  ,6X, 'Af2,2)  ■  ,6X. 'A(3.3)  ■  .6X,  •A(4,4)  ’  .6X. 
1  'A(6.5) * ,6X, ’ACR.e) • .fX,  ■A(2.4) • ,6X, ’A'2,6) ’ ,6X, ’A(3.E) * ,6X, 
1  ’Ad. 6)*/) 

603  FORMAT  (/*  SON-DIMENSIONAL  DAMPING*// 

1  *  SIGMA* ,3X. *B(1.1)  *  .6X,  *B(?.2) * ,6X. *B(3,3) * ,6X. *3(4.4) * ,ex, 

1  ’B(6,6) * .6X. ’B(8,6) * ,6X.  ‘B(2.4) * .6X, ’E(2.6) * ,6X. ’Bd ,5) ' .6X . 

2  'B(4,6)*/) 

604  FORMAT  ( IX , F6 . 3 , 1P10E12 . 4) 

605  FORMAT  (///'  (SIGMA  IS  NON-DIMF.NSIOHAl.  FREQUENCY)  ’ ) 

RETURN 

END 

C  DECK  ATAN2D 

FUNCTION  ATAN2D  (E.A.RADDEC) 


*  axctang^nt  function  in  dcgreoi  for  ar.y  quadreuit 

DATA  EPS  /l.E-10/ 

IF  (B  .EQ.  0. )  ATAN2D  =  0. 

IF  (B  .CT.  0. )  ATAN2D  =  00. 

IF  (B  .LT.  0.)  ATAN2D  --90. 

IF  (ABS(A)  -CT.  EPS)  ATAK2D  =  ATAN2(B.  A  )*RADDEC. 

RETURN 

END 

C  DECK  ATAN3 

FUNCTION  ATAN3(X,y) 

•  thi*  function  is  to  taN«  car*  of  the  cas*  of  ATAN2(0,0) 

AX=AES(X) 

ay=abs;y) 

IF(AX  .LE.l.E-08  .AND. AY  .LE  1  E-08)  CO  70  S 

ATAN3- ATAN2(X.Y) 

CO  TO  1C 
6  ATAN3=0. 

10  RETURN 
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EID 

C  DECK  BILGEK 

SUBftOUTIlE  BILGEX  (IBLGK) 

*  calculktaa  bilr«  k««l  dmaping  uiins  aathod  oi  KATO 

•  U.  R.  MCCREIGHT,  DTISROC 

COtfflOI  /APPEND/  SBKSET.IBKSTB(2).BKIKAG(2),BKFS(2).BKAS(2), 

2  BICWD(2),BKSTI(10,2'..BKHB(10.2),BKLirrH,BKWDTH, 

2  BKWL(10,2) .BKAI(10.2) .■SKSET.SKIMAG(2) ,SKFLS(2) ,SKALS(2) , 

2  SKAUS(25,SKHB(2),SKFLWL<2),SKALWL(2j,SKAUVL(2) .«RDSET.IU)IMA0(2) , 

2  RDRFS(2} ,RDRAS(2),RDRHB(2) .RDRFWL(2) ,RDRAUL(2) .RDTrS(2) ,RDTAS(2) , 
2  RDTHB{2),RDTFWL(2),RDTAWL(2),»SBSET.SBIMAG(2).S0BRFS(2).S0BRAS(2) 
2.SOBRHB(2),SOBRFW(2),SOBRAW(2) ,SIBRFS(2) ,SIBRAS(2) ,SIBRHB(2), 

2  SIBRFW(2) .SrBRAW(2) .SBTFS(2) .SBTAS(2) ,SBTHB{2) ,SBTFWL(2) , 

2  SBTAWL(2),»FSSET.FI1MAG{2),F»RFS(2),FBRAS(2) , 

2  FRRHB(2),mFVL':2),F«RAWL(2),FITFS(2),FirrAS(2).FITHB(2), 

2  FHTFWL(2)  ,FKTAtfL(2)  .Kr.XPRD,EBRDO(8)  ,EBRDS(8) 

COMMOB  /CH3D/  ISIGMA  1NIH,SIGHAX.V,SIBMU.C0SHU,WTSI, 

2  I««1B,IMMAX,IMDEX,LM..  .lNAX 

REAL  SIGMIH.SIGHAX,V,S1NMU.C0SHU,WTSI(4) 

IHTEGER  ISIGKA . IHHIK , IMNAX , IHOEL.LHIH ,LMAX 

COMMON  /ENVIOR/  VK ,BVK , MU , BKU .OMEGA .KOMEGA . SIGMA .NSIGMA , SIGWH , 

•.  MS IGWH  . TMODAL ,  MTMOD .  NRAMG ,  RANG  ,  RLAHG ,  S  ,  NNMU  ,  FRNUM ,  VFS 
INTEGER  NVK , NMU , BOMEGA . MSIGMA .KSIGWH , BTMOD . NRANG , NNMU (8) 

REAL  VK(8)  MU(37,8) .OMEGAOO) .SIGMA(lO) ,SIGWH(4) ,TMODAL(8) , 

2  RABG(8)  ,R1.ASG(8)  ,S(20.8)  ,FRNUM(8)  .'rPSiB) 

COMMON  /GEOH/  X.NSTA  . Y  .Z .NOFSET.LPP . BEAM , DRAFT ,LCF , 

1  VCG.Ch.DELGM.NEBLA.K;  ^TCK .KROLL .KYAW.KYAWRL . AWP .‘'CB . FBDX , FBDY , 

2  r  BDZ  .  NFREBD ,  XPT .  YPT ,  7,PT .  NPTS .  LCB  .  GML .  ASTAT ,  BSTAT  .TITLE .  MASS . 

2  DISPLH . IPITCH . IROLL , lYAW . I YAWRL , CHEAVE . CPITCH , CHEAPl , CROLL . 

2  AREAMX , WSURF . Cl RTK . FBD2V , DBLWL , TLCB 

INTEGER  NSTATN.B0FSET(2B) .NFREBD. NPTS 
CBARACTER’A  title (20) 

RLAL  X(26) .Y(10.26) .Z(10.2S) .FBDZV(8,10) .LPP.BEAM.DBLVL.TLCB. 

2  DRAFT. LCF.VCG. CM, DELGM.NEBLA.KPITCH,KR0LL,KYAW,KYAWRL.AWP,VCB, 

2  FBDX(IO) ,FBDY(10) .FBDZ ( 10) . XPT( :0 ) ,YPT( 10) . 2PT( 10) . LCB . GML . 

4  ASTAT(26) . BSTAT(25) . MASS  .DISPLH , IPITCH , IROLL . lYAW . 

5  I YAWRL, CHEAVE. CPITCH. CHEAPl. CROLL. AREAMX. WSURF. GIRTH (26) 

COMMON  /PHYSCO/  I I ,TPI . PI , PIOT .DECRAD . RADDEG , VKMETR, METRVK ,GRAV , 

2  RHO,  GNU.  RHOS.RHDF,  GNUS.  GNUF.FTMETr.,  PUN  ITS,  REYSCL 
COMPLEX  II 

CHARACTER»4  PUH:TS(2) 

REAL  TPI .PI ,P1DT, DEGRAD, KADDEC. VKMETR. METRVK .GRAV, RHO, GNU, RHOS , 

1  RHOF. GNUS, GNUF.FTMETR 

COMMON  /RDGEO/  BKLEN , WBKMAX .DLBKEL(26 ) . SRBS ( 25 ) ,PKIS(25) ,CPS(25) , 

2  BKT(25) ,RK£(26) ,SSTR(25) 

COMMON  /RLDBK/  PSUR(25) .BMK(25) .DK(26) . CAK ( 25 ) . HQ .HSPAN . HMNCHD , 

2  LAREA.HXCP.HYCP .HZCP , HGAMM* , H YH AT , HEAR , HLCS , R0( 2 ) .RSPAN(2 i , 

2  RHNCHD(2) ,RAREA(2  ■  .RXCP( 2  ■  .RYCP(2) , RZCP (2 ) . RCAMMA (2 ) ,RYHAT(2) , 

2  REAR(2) ,RLCSv2) .S0;2 ■ .SSPANIZ) . SMNCHD( 2 ) .SAREA ( 2 ) ,SXCP(2 ) , 

2  SYCP(2) ,S7CP(2; .SCAMMA( 2!  . SYHAT ( 2 ) , SEAR (2) , SLCS ( 2 ) . BO (2 ) , 

2  BSPAN(2) ,BMHCHD(2) ,BAREA(2! .BXCP(2) .BYCP(2) ,BZCP(2) .BCAMMA(2) , 

2  BYHAT(2)  .BEARf  2)  ,  B1,C5(2)  ,  F0(  2  ;  ,  FSPAN(  2  )  ,  FMNCHD  (  2  ) ,  FA  REA  (2)  , 

2  FXCK2) ,FYCP(2) .FZCP(2 ) .FGAMMA(2) . FYHAT (2 ) , FEAR( 2 ) , KLCS( 2 ) . 

2  P0(2 ,2)  ,PSP<.N'2,2)  ,PMNCHD(:,2)  .  PAREA  ( 2 , 2 ) ,  PXCP  ( 2 , 2 ) ,  PYCP  ( 2 .2 )  . 

2  PZCP(2,2) ,PC/'  MA(2,2) . PYHATf 2 , 2 ) , PEAR ( 2 ,2 ; ,PLCS(2,2) , 

2  5TADMP(  10;  .GHt'[/MP(  10,8)  .ENCOH  ,WPH1  ,TPHI  .  WMELM( 4 , 9 ) ,  SFElM ( 4  .9 , 8  ) , 

2  REELM(4 .0,8) .PEELM { 4 . 9 . 8 ) ,FEELM(4 .9,8) , HEELM(4 ,0 ,8) , BEELM (4 , 9 , 8 ) , 
2  ENWM ,ENSF(6,e) . ENRE(8 ) .ENPE; 8 i .FNFECe 1 .EHHE{8) ,ENBE(8) , 

2  ENLMV(e  .8)  ,ENP.L(8)  ,ErPL(6)  , ENH. '  R  ;  , ENHI. (8 )  .  ENSL ( 8  )  ,EHBL(8)  , 

2  EN5HP(e  .8)  .RELM  '  .9)  ,  ITSC  25  )  .  RL  (  25  )  .'■DDY(8.26)  .RGB  (25) 

REAL  P,PBLK(2692 

EQUIVALENCE  (PSUh(  1 ;  ,  P.DELia  1 )  ) 


REAL  KAPPA, KG, LAMBDA, LEKEEL 
CBARACTER«4  METER 

EXTERIAL  EXP 

.  ^_^DATA  METER  /-METE'/ 

LBKEEL-BKLEI 
ISM  -  ISTATI  -  1 
DO  40  Kb2,ISM 

.  IF  (lOFSETCK)  .LT.  2)  GO  TO  40 
IF  (DLBKEL(K)  .Eg.  0.)  GO  TO  40 
IIODES  =  lOFSETCK) 

R=KD(K) 

BLOCAL  B  2*BNK(K) 

TLOCAL  B  ABS(BICT(K)) 

KG  *  VCG  +  TLOCAL 
BBKEEL  B  BKWDdBLGK} 

PHI=PHIS(K) 

COSPHIbCFS(K) 

RK=RKS(K) 

SS  B  SSTR(K) 

SRB=SRBSCK) 

RF=SRB*Y(iriODES.K) 

EPS=ATAI(SRB) 

C0= lOOO . • ( 1 . 44+3 . 8+PHI++3) 

KAPPA  =  R*(1.0  ♦  RF/BL0CAL)**2  /  S0RT(BL0CAL*KG/2. ) 
XI=BBKEEL/(RK*PHI**0.75) 

AK  =  1  .40+2.03»EXP(-2S.*XI) 

ALPHA=2.0-AH 

CK=i  .0+3.6*EXP(-9.0»KAPPA) 

SCM=2.0*BBKEEL/LBKEEL 
CN  =  1 .9B*EXP(-5. 5+SCM) 

Q  =  (0.6*BLOCAL*TAN(PI/4.  -  EPS/2.)  +  RF  -  KG)  •  SIH(PI/4.  + 
2  EPS/2.) 

PO  =  KG  -  TLOCAL/3.  -  2.+RF/3. 

PI  e  0.e8*(KG  -  TLOCAL  -  0 . 64*(BL0CAL/2 .  -  (TLOCAL  -  RF)*TAN 
2  PI/4.  +  EPS/2.))) 

LAMBDA  s  R/(TLOCAL  -  RF*(BLOCAL  -  2.*R)/BL0CAL) 
FLAMB=1.34*S1N( PI •LAMBDA/3.6)/ 

1  (1 .0+0.162*511 (PI •(LAMBDA-0.0 )/l .8)) 

BCIRC  •  COSPRI  ♦  SS»(0+P0-(P0-P1)*FLAMB)/(2.*BBKEEL*RK) 
DAKEEL=2.0*DLBKEL(K) •BBKEEL 

COM  =  4.0*RHO/(3.0»PI)*CK»C»*BCIRC*DAKEEL*RK**3 
CO  30  lAel  .NRANG 
DO  20  IS=1  .NSICHA 
PERE  =  TPI/SICMAdS) 

F  =  RK‘RANC(IA)»PH1«*1 .7/(PERE»S0RT(BBKEEL)) 

•  F  Kust  b«  in  mitart 

IF  (PUBITS(l)  .IE  METER)  F  •  F»SORT(FTMETR) 

C3  =  CO*F**(-ALPHA)/(2.68»1000,0) 

CA  =  1, 

RN  (8.*BBKEEL»RK*RAIC(IA)  /  (PERE'ClU))  *  REYSCL 
IF  (RK  .GE.  1000  .  )  CO  TO  17 
ALIORI  «  ALOC(RI)/ALOG( 10  ) 

CA  >=  1.96  -  0.2o*ALl0R«  •  0 . 20*51l( PI* ( ALlORN-2 . 19) /O . 64) 

17  COMTIIUE 

STADMP(IS)  *  COI*CS»CA*SIGMAdS  l•RAIC(  lA) 

STADMP(IS)  =  5ICMA(I5)»STADKP(IS) 

SHPDMPdS.IA)  «  SHPDHP(IS.IA)  ♦  STAOMPdS) 

20  CONTINUE 
30  CONTINUE 
40  CONTINUE 

RETURN 

END 

C  DECK  RKEDDY 

SUBROUTINE  BKF.DDY 


CONMOI  /APPEfD/  IBKSET . IBKSTK ( 2 ) ,  BKIMAG ( 2 ) , BKFS ( 2 ) , BK AS ( 2 ) . 

2  BKVD(2) ,BKSn(10.2) ,BKHB(10,2) .BKLTTH.BKVDTB , 

2  BKVLaO,2) ,BKAa(10,2) ,ISKSET,SKIHAG(2) ,SKFLS(2} .SKALS(2) , 

2  SKAUS(2),SKHB(2),SKFLWL(2).SKALVL(2),SKAUVL(2),1RDSET,RDIMAG(2), 

.  2  llDRFS(2),RDRAS(2),RDRHB(2),RDRm(2).IlDRAUL(2).RDTFS(2).IlDTAS(2), 
2  RDTHB(2) ,EDTFWL(2) ,RDTAWL(2) ,ISBSET.SBIHAG(2) .S0BRFS(2) .SOBRAS(2) 
2.S0BRHB(2) ,S0BRFW(2) ,SOBRAW(2) .SIBRFS(2) .SIBRAS(2) ,S1BRHB(2) , 

2  SIBRFW(2) ,SIBRAW(2) .SBTFS(2) ,SBTAS(2) ,SBTHB(2) ,SBTFWL(2) . 

2  SBTAWL(2)  ,IT-|SET,FTtIMAG(2)  ,FMRFS(2)  ,FIRAS(2)  . 

2  FIRHB(2)  ,nRFWL(2)  ,FaRAWL(2)  .FTrFS(2)  .FTTASCi)  ,FITHB(2) , 

2  FITFVL(2),FITAWL<2),IEAPRD,EIRD0(B),EIRDS(8) 

COHHOI  /CB3D/  IS1GHA,SIGMIR,SIGHAX,V,SIIKU,C0SHU,WTS1 , 

2  IKNII.INNAX.IMDEL.LMII.LMAX 

REAL  SIGHIB , SIGHAX , V , SIRMU , COSHU , VTSI (4) 

IITEGER  ISIGHA , IHNIB . INMAX . INDEX . LNIH , LKAX 

CONMOI  /EIVIOR/  VK.RVK.NU.RHU, OMEGA, IOMEGA, SIGNA,«SIOKA,SIGWH, 

1  ISIGWB ,TNODAL , ITMOD ,RRANG ,RANG , RLANG ,S ,IHNU .FRIUN . VFS 
IITECER  IVK , IMU , IOMEGA , MSIGMA , ISIGWB , ITMOD , IRAIG , IINU(8) 

REAL  VK(8),NU(37,8),0MECA(30),SIGMA(i0),SIGWB(4),TM0DAL(8), 

2  RAIG(8),RLABG(8} .5(30,8) ,FRHUM(8) , VFS (8) 

COHMOI  /GEOM/  X , 1ST ATI ,Y .Z . lOFSET.LPP , BEAM .DRAFT ,LCF . 

1  VCG . GM , DELGM . lEBLA . KPITCR . KROLL , KY AW . K YAWRL , AWP . VCB , FBDX . FBDY . 

2  FBDZ . IFREBD , XPT , YPT ,ZPT . IPTS . LCB . GML . ASTAT . BST AT . TITLE . MASS , 

2  DISPLM , IPITCB , IROLL . lYAW . lYAWRL , CHEA VE . CPITCH . CHEAPI , CROLL , 

2  AREAMX . WSURF .GIRTH, FBDZV , DBLWL . TLCB 

IITEGER  ISTATB , IOFSET( 2S ; , IFREBD , IPTS 
CHAP.ACTER*4  TITLE(20) 

REAL  X(2S) .Y(10.25) .Z(10.25) .FBD2V(8, 10) ,LPP .BE AM. DBLWL. TLCB . 

2  DRAFT. LCF, VCG, CM, DELGM. KEBLA.KPITCH.KROLL.KYAW.KYAWRL.AWP. VCB, 

2  FBDX(10),FBDY(10) .FBDZ(IO) ,XPT( 10) .YPT(IO) .ZPT(IO) .LC3.GML, 

4  ASTAT(26) ,BSTAT(25) .MASS, DISPLM. IPITCB, IROLL, lYAW, 

6  lYAWRL.CBEAVE.CPITCB, CHEAPI. CROLL. AREAMX. WSURF, GIRTB(26) 

COHMOI  /RLDBK/  PSUR(26) .BMK(25) .DK(25) .CAK(25) .HQ.HSPAN.HMNCHD, 

2  RAREA,HXCP,HYCP.HZCP.HGAMMA.HYHAT,HEAR.HLCS,R0(2) ,RSPAN(.2) , 

2  RMHCHD(2) .RAREA(2)  ,RXCP(2) .RYCP(2) .RZCP(2) ,RGAMMA(2) ,RYHAT(2) , 

2  REAR(2).RLCS(2) .S0(2) ,SSPAI(2) .SMICHD(2) ,SAREA(2) ,SXCP(2) , 

2  SYCP(2),SZCP(2) .SCAMMA(2).SYHAT(2),SEAR(2),SLCS(2)  BQ(2) , 

2  BSPAB(2)  ,BMNCHD(2)  , BAREA  (2 )  ,  BXCP(2 ) .  BYCP(  2 )  .E2Cr  “■  '  ,P-2aMMA(2)  , 

2  BYHAT(2KBEAR(2)  .BLCS(2)  .F0(2)  ,FSPAM(2)  .V"’ "H:  !  •,  '  '?), 

2  FXCP(2),FYCP(2) ,FZCP(2) .FGAMMA(2).FYHAT(.  L...  . 

2  PO ( 2 , 2 )  ,  PSPAI  ( 2.2),  PMNCHDC  ,  2 )  .  PAREA  (2,2  r  ? CP  (  v  ,  2  .  ,  P  i  ■  i  .  2) , 

2  PZCP(2.2) ,PCAMMA(2,2) ,PYHAT(2,2) .PEAR (2,'  ' , PLCS(2,2) . 

2  STADMP(IO)  ,SHPDMP(  10,8)  .ENCOK.WPHI  .TPHI.V  T.;  M(  4 , 9  ) ,  SFF.'  M  (4 , 9 , 8 )  , 

2  REELM(4.9,8)  .PEELM  ( 4 . 9 , 8  )  .FEELM  (4 , 9  .  B  )  .HL  ''f4,9.8)  ,  BEtl  M(4,9,8K 
2  ENWM.ENSF(8.8) .EBRE(8) .EIPE(e) .EIFE(B) .ENiu,. 8) ,ENBE(8), 

2  ENEMV(8.8) .ENRL(8) .EIPL(e) .EIFL(8) ,EIHL(8 ) . ENSL(8 ) .ENBL(e) , 

2  ENSHP(8,8)  .RELM(4,9) .ITS(2E) .RD(2&) ,EDDY(8.2S) ,RGB(25) 

REAL  RDBLK(2692) 

EOUIVALEICE  (PSUR(1),R0BLK(1)) 

DO  20  IA>=1,IRA1C 
ENBE(IA)  c  0 
DO  10  IS=1.ISICMA 
SMPDMP(IS.IA)  s  0 
10  CORTIRUE 
20  CORTIRUE 

IF  (IBKSET  .to.  0)  CD  TO  100 
DO  30  I’l .IBKSET 
CALL  CALRGN(I) 

CALL  B1LGFJ((!) 

30  COITIRUE 

DO  40  IA<:1  .NRANC 

CALL  SPFIT  (SIGMA ,SKPDMP( 1 , lA ) ,BEELM{ 1 .1 ,IA ) .NSIGMA) 

ENBE(IA)  »  ERC0I»R£VAL(BE£LH(1,IS1GMA,IA).WTSI) 

40  CORTIRUE 
100  CORTIRUE 


RETURN 


EID 

C  DECK  BKLirr 

SUBROUTIIE  BKLIFT 

COmOl  /APPEIVD/  ■BKSET.IBKST]I(2),BKIMAG(2),BKFS(2),BKAS(2), 

'  --2  BKWD(2) .BKSTI(10,2) ,BKHB(lO,2) .BKLfTH.BKWOTH. 

2  BKVL(10,2},BKAI(10.2),ISKSET,SKIHAG(2),SKFLS(2),SKALS(2) , 

2  SK AUS ( 2 ) , SKHB ( 2 ) , SKFLWL ( 2 ) , SKALWL ( 2) , SK AUWL ( 2 ) , IRDSET , RDIM AG ( 2 ) , 

2  IU)RFS(2) ,RDRAS(2) ,RDRHB(2) ,RDRFWL(2) .RDRAWL(2) ,RDTFS(2) ,RDTAS(2) , 
2  RDTHB(2),IIDTFVL(2},IU>TAVL(2},ISBSET.SDINAG(2),S0BIIFS(2)  ,S0BRAS(2) 
2  .SOBRHBp)  ,S0BRFV(2)  ,SOBRAU(2}  ,SIBRFS(2}  ,SIBRAS(2)  ,SI6RHB(2) , 

2  SIBRrW(2).SIBRAW(2),SBTFS(2),SBTAS(2).SBTHB(2),SBTFWL(2), 

2  SBTAWL(2)  .IFISET.FIIHAG(2)  .F»RFS(2)  .nRAS(2) . 

2  FHRHB(2)  ,FIRFWL(2)  ,FBRAWL(2)  .FITFS(2)  .FmS(2)  ,F1THB(2)  . 

2  FITFVL(2) ,FITAVL(2) .VEXPRD,ERRD0(8) ,EHROS(8) 

COMROI  /ERVIOR/  VK.RVK, MU, RKU, OMEGA. IOMEGA, SIGMA, ISIGMA.SIGWH, 

1  MSIGVH .TMODAL , HTMOD , IRAHG , RANG ,RLARG , S , RNMU , FRRUM , VFS 

I RIEGER  RVK , RHU , KOHEGA .RSIGHA.RSIGVH, RTMOD , RRANG , RRHU(8 ) 

REAL  VK(8) ,MU(37.8) .OMEGAOO) ,SiaMA( JO) ,SIGWH(4) ,TMODAL(8) , 

2  RARG(8),RLAIG(8),S(30,8),FRRUH(8),VFS(8) 

COMMON  /GEOM/  X . RSTATR , Y ,2 . ROFSET ,LPP , BEAM , DRAFT, LCF , 

:  VCG , GM , DELGM , REBLA , KPITCH . KROLL . KYAW .KYAWRL . AUP . VCB . FBDX , FBDY , 

2  FBDZ , RFREBD , XPT . YPT . 2PT . IPTS . LCB . CML . ASTAT . BSTAT , TITLE , MASS , 

2  DISPLM . IPITCH . IROLL . lY AW . lYAWRL , CHEAVE , CPITCH . CHEAPI . CROLL , 

2  AREAMX , WSURF .GIRTH . FBDZV .DBLWL .TLCB 
I RTEGER  RSTATR , ROFSET ( 2S ) . RFREBD . RPTS 

REAL  X(26),Y(10.2B) ,2(10.26) ,FBD2V(8.10) ,LPP .BEAM , DBLWL , TLCB . 

2  DRAFT , LCF . VCG , GM, DELGM , REBLA , KPITCH . KROLL , KY AW . KYAWRL . AWP , VCB , 

2  FBDX(10),FBDY(10) .FBD2(10) .XPT(IO) ,YPT(lO) ,ZPT(10} .LCB.GML, 

4  ASTAT(26) .BSTAT(25) ,TITLE(20) .MASS .DISPLM . IPITCH . IROLL, lYAW, 

6  I YAWRL , CHEAVE , CPITCH , CHEAPI , CROLL . AREAMX . WSURF . GIRTH ( 26 ) 

COMMON  /PHYSCD/  II .TPI , PI .PIOT. DEGRAD .RADDEG .VKMETR.METRVK.GRAV , 

2  RHO , GNU , RHOS . RHOF , GNUS , CRUF , FTMETR , PURITS . REYSCL 
COMPLEX  II 

CHARACTER»4  PURITS (2) 

REAL  TPI .PI. PIOT. DECRAD, RADDEG, VKMETR.METRVK.GRAV. RHO, GRU, RHOS, 

1  RHOF, GNUS, GHUF,  FTMETR 

COMMON  /RLDBK/  PSUR(26 ) , BMK(25) .DK (26) . CAK(25) .HQ .HSPAH , HMRCHD , 

2  HAREA,HXCP.HYCP.H2CP,HCAMMA.HYHAT,HEAR.HLCS.RQ(2) ,RSPAN(2) , 

2  RMRCHD(2) .RAREA(2) .RXCP(2) .RYCP(2) .RZCP(2) .RGAMMA(2) .RYHAT(2) . 

2  REAR(2) ,RLCS(2) .S0(2) .SSPAN(2),SMRCHD(2) ,SAREA(2) ,SXCP(2) . 

2  SYCP(2),SZCP(2) ,SCAMHA(2) .SYHAT(2),SEAR(2),SLCS(2),B0(2) . 

2  BSPAR(2).BMNCHD(2) .BAREA{2) .BXCP(2) .BYCP(2) .BZCP(2) .BGAMMA(2) , 

2  BYRAT(2) ,BEAR(2) .BLCS(2) ,F0(2) ,FSPAR{2) ,FMNCHD(2) ,FAREA(2) , 

2  FXCP(2) .FYCPCO) .F2CP(2) .FCAMMA(2) .FYHAT(2) .FEAR(2) ,FLCS(2) , 

2  P0(2,2) ,PSPAN(2.2) .PMRCHD(2 ,2) .PAREA(2 .2) , PXCP ( 2 . 2) , PYCP ( 2 . 2 ) , 

2  PZCP(2,2),PGAMMA(2.2) .PYHAT(2.2) .PEAR(2.2) ,PLCS(2,2) , 

2  STADMP(IO) .SHPDMP( 10 . 8 ) . ERCDM .WPHI .TPRI . WMELM{ 4 . 9 ) ,SFELM (4 . 9 . 6 ) , 

2  REELM (4, 9, 8) .PEELM(4 .9,8) .FEELM(4 .9,8) .HEELM(4 .9,8) .BEELM(4,e,6) , 
2  ENWM.ERSr(8.8) .ERRE(B) ,ERPE(8) ,ERFE(8) .ENHE(8) ,ENBE(8) , 

2  F.REMV(8.8)  ,ENRL(B)  . ERPL(  8  ) . ERFL( 8  )  ,EIHL( 8  ) . ERSLCB  ) , ENBL( 8) . 

2  ENSHP(8,8),RELM(4.9) .ITS(25) ,RD(26).EDDY(8,25) .RGB(2S) 

REAL  RDBLK(269:) 

EQUIVALERCE  (PSURC 1 ) ,RDBLK( 1 ) ) 

REAL  LCS.MCHORD 

IF  (RBKSET  .EQ.  0)  CO  TO  30 
ER  <-  0 

STASPC  =  LPP/20 
DO  20  K«1 .RBKSET 
RBKS  c  HBKSTN(K) 

XBKF  e  LCB  -  BKFS(K)»S  -S.  , 

XBKA  =  LCB  -  BKAS(K)*STASPC 

M  =  RBKS/Z 

IF(M  .EQ.  0)  Me  1 

YBK  c  BKBB(M,K) 


78 


2BICF  «  BKVL(l,K)  -  (DBLWL+VCG) 

ZBKA  «  BKVLUBKS.K)  -  (DBLVL-^VCG) 

q  «  2 

SOM  ■  0 

DO  10  I-l.IBKS 

SUM  -  SUM  flKAId.K) 

“"'10  comiuE 

GAMMA  B  •  SUM/IBKS 
SPAR  >  BKVD(K) 

MCHORD  e  XBKF  >  XBKA 

*  axtt. 

AREA  >  SPAI#MCHORO 

*  c«nt«r  ol  praaaura 

XCP  e  XBKF  -  0.6*MCB0RD 
YCP  e  YBK  ♦  0.6*SPAK 
ZCP  »  (ZBKF  +  ZBKA)/2 

*  nonent  am 

GAM  s  GAMMA*DEGRAD 

YBAT  e  YCP*COS(GAM)  ♦  ZCP*SIR(GAM) 

*  eXlactiva  aapact  ratio 

EAR  s  2*SPAR/MCB0RD 

*  lilt  cturve  elope 

LCS  =  (P1/2)*EAR 
Ba(K)  =  Q 
BSPAN(K)  =  SPAR 
BHNCHD(K)  e  MCBORO 
BAREA(K)  =  AREA 
BXCP(K)  «  XCP 
BYCP(K)  =  YCP 
BZCP(K)  =  ZCP 
BGAHHA(K)  «  GAMMA 
BYBAT(K)  =  YRAT 
BEAR(X)  e  EAR 
BLCS(K)  =  LCS 

EH  =  EN  ♦  Q*(RB0/2)»AREA*LCS«YHAT*YHAT*in>BI*EHC0N 
20  COKTIHUE 
30  CORTIHUE 

DO  40  IVcl.RVK 
EHBL(IV)  s  0 

IF  (RBKSET  .CT.  0)  EHBL(IV)  e  EH»VrS(IV) 

40  CORTIIUE 

RETURI 

EID 

C  DECK  BHAX 

FUNCTION  BMAXd.X; 

DIMENSION  XOO) 

A^XC  1 ) 

IF(B.LE.l)  CO  TO  2 
DO  1  I«2,H 

IF(X(I).CT.A)  A»X(1) 

1  CONTINUE 

2  CONTINUE 
BHAX-A 

RETURN 

END 

C  DECK  BRtfVSP 

SUBROUTINE  BRHVSP  ( NDK .SICWH .TO .W .S) 


*  this  rontias  calcolatss  s  BRETSCHIEIDER  2-paraB«tsr  vsvs  spsctrrun 

*  (sigaillcant  «v«  height ,  aodsl  vave  period) 

*  W.G. MEYERS,  DTISRDC,  072977 

.  DIMEISIOI  W{I0K),S(I0K) 

EXTERIAL  EXP 

DATA  A,B  /487. 0626, 1948. 2444/ 

T04  «  T0e*4 

*  lor  Pierson-Moskowitz  wave  epectnia 

*  T04  »  68.0936*SIGWH**2 

CORl  B  AeSIGUB**2/T04 

C0I2  *  B/T04 

DO  10  Isl.lOK 

V4  c  W<I)**4 

V6  c  W(I)*V4 

ARC  e  C0H2/V4 

IF  (ARG.GT.SO.)  S(I)=0. 

IF  (ARG.GT.SO.)  GO  TO  10 
S(I)  =  C0H1/W5*EXP(-ARG) 

10  COHTIIUE 

RETURI 

END 

C  DECK  CALRGK 

SUBROUTINE  CALRGM  (IBLGK) 

COMMON  /APPEND/  NBKSET.NBKSTN(2) .BKIMAG(2) ,BKFS(2) ,BKAS(2) . 

2  BKWD(2) ,BKSTN(10,2) .BKHB(  10 . 2) . BKLNTH , BKWDTH  , 

2  BKWL(10,2) ,BKAN(10.2) .NSKSET.SKIMAG(2) ,SKFLS(2) .SKALS(2) , 

2  SKAUS(2) .SKHB(2),SKFLWL(2) .SKALWL(2) ,SKAUWL(2) .NRDSET,RDIMAG(2) . 

2  RDRFS(2) .RDRAS(2) ,RDRKB(2) .RDRFWL(2) .RDRAWL(2)  ,RDTFS(2) ,RDTAS(25 . 
2  RDTHB(2),RDTFWL(2),RDTAWL(2),NSBSET,SBIMAG(2)  .S0BRFS(2) .SOBRAS(25 
2.S0BRRB(2) .S0BRFW(2) ,S0BRAW(2) .SIBRFS(2) .SibRAS(2) ,SIBRHB(2) , 

2  SIBRFW(2) ,SIBRAW(2) ,SBTFS(2) ,SBTAS(2) .SBTHB(2) ,SBTFWL(2) , 

2  SBTAWL(2).NFNSET.FNIMAG(2).FNRFS(2),FNRAS(2). 

2  FNRHB ( 2 ) , FNRFWL ( 2 ) , FNR A WL( 2 ) . FNTF3 ( 2 ) , FNTAS ( 2 ) .  FNTHB ( 2 ) . 

2  FNTFWL(2)  .FNTAWL(2)  ,NEXPRD,ENRD0(8)  ,F,NRDS(8) 

COMMON  /DATINP/  OPTN.MOTN.BSCFIL.VLACPR.RAOPR.RLDMPR.DISPLMT, 

2  LRA0PR.ADRPR,0RG0PTN.GMN0M.KC.STATN(25) ,NS0FST(25) , 

2  NLEWF(25),HLFBTH(10,25)  .WTRLNE( 10.25) .BLEWF(25) ,TLEWF(2S) , 

2  AREALF(25) .NPTLOC . PTKUMB(  10) . PTNAME.  XPTLOCC 10)  .YPTLOCUO) , 

2  ZPTLOC(IO) ,NBB.FBNUMB( 10)  .FBNAME.XPTFBDdO) .YPTFBD(IO) , 

2  ZPTFBD(IO) .FBCODE(lO),FBTYPE.RDOT(10)  . VKDLS , FNDES , 

2  STATNM.STATIS 

CHARACTER*4  PTHAME{8. 10)  ,FBNAME(8, 10) .STATNMfB) ,FBTYPE(3 . 10) 
INTEGER  OPTN .MOTH  .  BSCFIL .  VLACPR , RAOPR . ADRPR .  RLDMPR . FBCODE , 

2  FBNUMB.PTNUMB.ORCOPTK 
REAL  KG 

COMMON  /PBYSCO/  II ,TP1 .PI  .PIOT .DECRAD . RADDEC  . VKMETR .METRVK .CRAV , 

2  RHO. GNU, RHOS.RHOF, GNUS. CNUf.FTMETR.PUNITS.REYSCL 
COMPLEX  II 

CHARACTER»4  PUNITS(2) 

RF AL  TPI  ,PI .  PIOT .  DECRAD  ,  RADDEC  .  VKMETR  ,  METRVK  ,  GRAY  . RHO  .G.SU  , RHOS  . 

1  RHOF.CNUS.CNUF.FTMETR 

COMMON  /CEOM/  X . NSTATN . Y  .2 .NOFSET .LPP . BEAM . DRAFT . LCF . 

1  VCC.GM.DELCM.NEBLA.KPITCK.KROLL.KYAW.MYAWRL.AWP.VCB.FBDX.FBDY. 

2  FBDZ . NFREBD . XPT . YPT . ZPT  .  NPTS . LCB , GHL , ASTAT . BSTAT . TITLE . MASS . 

2  DISPLM.IPITCH.IROLL.lYAU.lYAWRL.CHEAVE.CPITCH.CHEAPl.CROLL. 

2  AREAMX.WSURF.CIRTH.FBDZV.DBLWL.TLCB 

INTEGER  NSTATN. N0FSET(25)  , NFREBD. NPTS 
CHARACTER*4  TIT!.E(20) 

REAL  X(26) .Y( JO .25) .Z( 10 .25 ) . FBDZV(8 . 10) . LPP  . BEAM . DBLWL .TLCB . 

2  DRAFT. LCF. VCC.  CM. DELCM.NEBLA.KPITCH.KROLL.KYAW.KYAWRL.AWP.VCB. 


SO 


2  FBDX(10),PBDY(10) .FBD2(10) ,XPT(10) ,YPT(10) ,ZPT(10) .LCB.GKL, 

4  4STiT(26) , BSTAT(26) .MASS .DISPLM . IPITCH , IROLL . lYAW , 

6  lYAVRL , CHEAVE , CPITCB , CHEAP 1 , CRQLL , AREANX , VSURF , C IRTH ( 26 ) 

COKMOl  /RDGEO/  BKLEH.UBKHAX.DLfiKEL(26) ,SRBS(25) ,PHIS(2S) ,CPS(2S) , 
:2  BKT(26).IUCS(26),SSTR(26) 

REAL  LBKEEL 
LBKEELaO. 

IBKS  a  IBKrTI(lBLGK) 

STASPC  a  I  720 
M  a  BSTATl 
ISM  a  ISTATI  -  1 
DO  1  Ka2,ISM 
M  =  H  *  i 

IF  (lOFSEKK)  .LT.  2)  GO  TO  1 
DELTALaO . 

SRB=0. 

PHI=0. 

COSPHlal. 

RKal. 

SaO. 

IF  (STATI(M)  .GT.  BKAS(IBLGK)  .OR.  STATH(M)  .LT.  BKFS(IBLGK)) 

2  CO  TO  6 

IF  (STATHCM+l)  .GT.  BKAS(IBLGK)) 

2  DELTAL  *  (BKAS(IBLCK)  -  STATN(M) )aSTASPC 
IF  (STATHCM-l)  .LT.  BKFSCIBLGK)) 

2  DELTAL  *  fSTATII(M)  -  BKFS(IBLGK)  )aSTASPC 
IF  (STAT(f(M+l)  .LE.  BKAS(IBLGK)) 

2  DELTAL  --  DELTAL  +  (STATN(M+1)  -  STATI(«) )  •STASPC/2 
IF  (STATN(M-l)  .GE.  BKFS(IBLGK)) 

2  DELTAL  =  DELTAL  +  (STATN(H)  -  STATK(M-l))*STASPC/2 
NflODES=NOFSET(K) 

DO  10  L=1,PBKS 

IF  (STATK(M)  .BE.  BKSTH(L,IBLCK))  GO  TO  10 

RO  a  S0RT(BKHB(L,IBLGK)a*2  ♦  {BKWL(L,IBLGK)  -  (DBLWL+VCG) )**2) 
ARC  a  BKAN(L.IBLGK)*DEGHAD 

YBKC  a  BKHB(L.IBLGK)  f  0.5*BKWD(IBLCK)*CDS(ARG) 

2BKC  a  (BKWLCL.IBLGK)  -  DBLWL)  -  0.6aBKWD(IBLGK)*SIN(ARG) 

RK  a  S0RT(YBKCaa2  +  (ZBKC-VCG)*»2) 

PI  a  ASIII(-VCG/RO) 

P2  a  ATAH2(VCC  ♦  DBLWL  -  BKWLCL.IBLGK) .BKHB(L.IBLGK)) 

PHI  a  PI  ♦  P2 
COSPHI  a  COSCARG  -  P2) 

SaO. 

KNM  =  IIB0DES-1 
DO  3  Jal.BRM 
JSaBBODES-J+l 

IF  (BKHB(L.IBLGK)  .GE.  Y(JS-l.K))  GO  TO  4 
SaS*SORT((Y(JS,K)-Y(JS-;.K) )*»2*(Z(JS.K)-Z(JS-l,K))*a2) 

3  CONTINUE 

4  CONTINUE 

S  a  S  ♦  SORTCCYC JS.K)  -  BKHB(L.IBLGK))**2  ♦  (2(JS.K)  - 
2  (BKWLCL.IBLGK)  -  DBLWL) )»*2) 

•  Yind  BiniauiD  dope  for  deadrise  calculation  in  "BILGEK" 

M2  a  JS  -  1 
LS  a  H2  -  1 

SRB  a  (Z(M2.K)  -  ZCLS.K))  /  (YCKL.K)  -  YCLS.K)) 

J  a  JS 

DO  130  I»2.H2 

J  a  j  -  1 
JSl  a  j  -  1 

SLOPE  a  (ZCJ.K)  -  Z(JSl.K))  /  (Y(J.K)  -  Y(JSl.K)) 

IF  (SLOPF.  .EQ.  0 .  )  GO  TO  140 
IF  (SLOPE  .GT.  SRB)  CO  TO  140 
LSa  JSl 
SRB  a  SLOPE 
130  CONTINUE 

•  extrapolate  dope  to  centerline  to  get  local  draft 


SI 


(•xcludiag  tktg 

140  BICT(K)  »  Z(LS*K)  -  SRB*y(LS.K) 

IF  (BKT(K)  .LT.  2(1, K))  BKT(K)  *  2(1, K) 
LB1C££L«LBKE£L^D£LTAL 

--.-40  comiUE 

6  COITIIUE 

DLBK£L(K)sDELTAL 
SRBS(K)-SRB 
PHIS(K)«PHI 
CPS(K)*COSPHI 
IUCS(K)«RX 
SSTll(K)®S 
1  COVTIVUE 
BKL£V=LBK££X 

RETURH 

EMD 

C  DECK  CDCOMP 

SUBROUTIKE  CDCOMP  (  N,  XDIM,  A,  UL.  IP  ) 

•  COMPLEX  MATRIX  TRIANGULARI2ATI0N  BY  GAUSSIAN  ELIMINATION. 

•  INPUT... 

•  N  «  ORDER  OF  MATRIX. 

«  IDZM  *  DECLARED  DIMENSION  OF  ARRAY  A  . 

•  A  ^  COMPLEX  MATRIX  TO  BE  TRIANGULARI2ED . 

•  OUTPUT... 

•  ULCI,J),  I  .LE.  J  =  UPPER  TRIANGULAR  FACTOR.  U  . 

•  UL(I,J),  I  .CT.  J  =  MULTIPLIERS  =  LOWER  TRIANGULAR 

•  FACTOR,  1  -  L  . 

•  IP(K),  K  .LT-  N  e  INDEX  OF  K-TH  PIVOT  ROW. 

•  IP(N)  -  (-1)**(NUMB£R  OF  INTERCHANGES)  OR  0  . 

«  USE  "SOLVE"  TO  OBTAIN  SOLUTION  OF  LINEAR  SYSTEM. 

•  DETERM(  A  )  •  IP(N  )*UL(  1 , )*UL(2  ,2  )•  .  .  .  •UL(N  .N)  . 

•  IF  IP(I)  ‘  0,  A  IS  SINGULAR,  SOLVE  WILL  DIVIDE  BY  2ER0 . 

•  INTERCHANGES  FINISHED  IN  U,  ONLY  PARTIALY  IN  L  . 

REAL  CABS 
COMPLEX  A,  UL,  T 

INTEGER  N.  NDIM.  IP.  K.  KPl  .  M.  I.  J 
DIMENSION  A(NDIK.NDIH) .  ULCNDIM ,NDIH) 

DIMENSION  IP(KDIM) 

DO  J060  *  1,  NDIM 

DO  ICOO  J  «  1,  NDIM 
UL(J,1)  *  A(J,I) 

1000  CONTINUE 
1050  CONTINUE 

IP(N)  *  1 
CC  nOO  K  “  1,  N 
IF  (  K  -EQ.  N  ;  CO  TO  1600 
XPl  K  ♦  1 
H  =  K 

DO  n-.  C  !  =  KPl .  * 

IF  (  CABS(  ui(i,x)  )  rr  cabs;  uhh.k)  )  )  m  =  i 
11' 0  •  COBTIBUE 
IP(K)  «  « 

IF  (  K  .IE.  K  )  !P(I)  *  -1P(I) 

T  *  UL(K,K) 
tn.(M.K)  «  UL(K,K) 

ULCK.K/  =  T 

(  CABS(r)  .EQ.  0.0  )  CO  TO  1600 
DO  1000  ;  =  KPl .  I 
UL(I.K)  =  -ULiI.K)/T 
1200  COKTIIUE 

DC  1600  J  =  KPl,  I 


1300 

1400 

1600 

1600 

1700 

99909 


UL(lf,J) 

UL(K.J) 


UL(K,J)  «  U] 
ULCK.J)  •  T 
IF  (  CABS(T) 


I  « 


DO  1300 
UL(I,J)  ^ 

COITIfUE 
COnilUE 
comiuE 
comiuE 

IF  (  CABS(  UL(K,K) 

comiuE 

coniiuE 


.EQ.  0,0  )  GO  TO  1400 


KPl.  I 
UL(I,J)  ♦  UL(I.K)^T 


)  .EQ,  0.0  )  IP(I)  «  0 


RETUKI 

EID 


C  DECK  CEVAL 

COMPLEX  FUVCTIOI  CEVAL  (CSPLRE.VEIGBT) 

COMPLEX  CSPLiE(4) 

DIKEISIOV  V£IGHT(4) 

CEVAL  •  (0..0.) 

DO  10  1*1,4 

CEVAL  *  CEVAL  ♦  WEICHT(I)*CSPUE(I) 

10  COITIIUE 


RETURB 

EID 


C  DECK  CLIP 

SUBROUTINE  CLIP  (LIMIT. TFH .TFNMOD) 

*  thia  routint  inpoaaa  a  limit  on  tha  magnitude  of  a  dimensional 

*  tr&nefer  function  (surge,  soay  or  yav  in  quartering  seaa) 

*  W.G. MEYERS.  DTHSRDC.  072977 


REAL  LIMIT, MACK 
COMPLEX  TFNJFNMOD 
MAGN  =  CABS(TFII) 

IF  (LIMIT, LE.O.  .OR.  MACS  .LE .LIMIT)  GO  TO  10 


transfer  function  clipped 

RATIO  =  LIMIT/MACS 
TFSMOD  *  RATIOeTFB 
GO  TO  20 
10  COITINUE 


*  transfer  function  not  clipped 

TFSMOD  «  TFI 
20  COBTIVUE 

RETURN 

EID 

C  DECK  CMISR 

FUSCTIOK  CMIIR  (ISKIP.AA) 


DIMEISIOI  AA0.4) 

SUMsO.O 

DO  1  11*1,4 

IF(II.EQ.ISKIP)  CO  TO  2 
I2“I1^1 

IF(12,CT.4)  12*1 

IF{I2.E0.1SK1P)  12*I2^1 

IF(I2.GT,4)  12*1 

13*I2*1 

ir(I3.CT.4)  13*1 

IF(I3.E0.ISKIP)  I3=I3^1 


S3 


1F(I3.GT.4)  13«1 

Sim-SUII+A*(l,Il)*(AA(2,I2)*AA(3.13)-Ai(2,I3)*XA(3,I2)) 
2  COITIIUE 

1  comiuE 

CMIIR-Sim 

RETUM 

EID 

C  DECK  COFOOT 

SUBROOTIIE  COFOUT 


gancrata  coeftlcisnt  lila  containing  apaad-depandant  addad-mass 
and  damping,  axclting  forcaa  and  KOCHII  functions 


COMMOl  /CH3D/  ISIGHA.SIGMIK.SIGMAX.V.SIEMU.CQSMU.WTSI, 
2  IMMII.IMMAX.IMDEL.LMIK.LMAX 
REAL  SIGMIR.SIGKAX.V,SIIIMU,C0SMU,VTSI(4) 

IVTEGER  ISIGHA,IMHIN,IHMAX,IHDEL,LMIH,LMAX 


2 

2 

2 

2 

2 

2 


2 


COMNOI  /DATIiP/  OPTH.MOTH.BSCFIL.VLACPR.RAOPR.RLDMPR.DISPLKT, 
LRAOPR , ADRPR , ORGOPTN , GMNOM . KG , STATR ( 26 ) . HSOFST ( 25 ) , 
ILEWF(25),HLFBTH(10.25) .WTRLNE(10,25) ,BLEWF(25) ,TLEWF(25) . 
AREALF(26) ,HPTL0C.PTNUMB(10) ,PTNANE.XPTLOC( 10) .YPTLOCUO) . 

2PTL0C(!0) . . *  '  - - - -  - • 

ZPTTBD(lO) 

STATNM.STAtlS 


))  !hBB,FBNUMB(10) .FBNAME.XPtFBD(lO) ,YPtFBD(10r. 
»),FBC0DE(10).FBnPE,RD0T(lO)  .VKDES.FNDES, 


CHARACTER*4  PT«AME(8,10) .FBNAME(8. 10) ,STATKM(6) ,FBTYPE(3 , 10) 
IRTEGER  OPTR , MOTK  .  BSCFIL . VLACPR , RAOPR , ADRPR , RLDHPR , FBCODE , 
FBltUMB .  PTRURB ,  ORGOPTN 
REAL  KG 


COMMON  /EBVIOR/  VK ,NVK .MU .HMU .OMEGA . IOMEGA .SIGMA . NSIGMA .SIGWH . 

1  ISIGWH .TMODAL . NTMOD .IRAKG . RANG , RLANG . S . NNMU , FRNUM . VFS 
INTEGER  IVK . NMU . IOMEGA . ISIGMA .NSIGWH . NTMOD . NRAHG . NNMU(8) 

REAL  VK(8) .MU(37,8) ,0HEGAf301 . SIGMA (10 ), SIGWH(4) .TM0DAL(8). 

2  RAHG(B) .RLAHC(8) .5(30.8) .FRNUM(8) .VFS(8$ 


COMMON  /CEOM/  X .ISTATN .Y .2 . NOFSET.LPP .BEAM .DRAFT .LCF. 

1  VCC.CM.DELCM.IEBLA.KPITCH.KROU,.KyAW.KYAWRL.AWP,VCB.FBDX.FBDY. 

2  FBD2 . NFREBD , XPT . YPT . 2PT . RPTS . LCB . GML . ASTAT . BSTAT . TITLE . MASS . 

2  DISPLM.IPITCH.IROLL.IYAW.IYAWRL.CHEAVE.CPITCH.CHEAPI.CROLL. 

2  AREAMX.WSURF. GIRTH. FBDZV.DBLWL.TLCB 

INTEGER  NSTATH.NCFSET(25) .NFREBD. RPTS 
CHARACTER*4  TITLE(20) 

REAL  X(26) .Y( 10.25 ) .2( 10.25) .FBDZVCB. 10) .LPP .BEAK.DBLVL.TLCB . 

2  DRAFT. LCF. VCC. GM, DELOM. REBLA .KPITCH.KROLL.KYAW.KYAWRL.AWP.VCB. 
2  FBDX(10),FBDY(10) .FBDZ( 10) .XPT( 10) . YPT( 105 , 2PT( 10) .LCB . GML. 

4  ASTAT(26) .BSTAT(25) .MASS.DISPLM.IPITCH .IROLL.IYAW 
6  lYAWRL.CHEAVE.CPITCH.CHEAPl.CROLL. AREAMX.WSURF. GIRTH(26) 


COMMON  /lO/  SYSFIL.POTFIL.COFFIL.LCOFIL.ICARD.TEXFIL.IPRIN. 
2  SCRFIL.HPLFIL.LRAFIL.ORCFIL.RACFIL.RMSFIL.SEVFIL.SPDFIL. 

2  SPTFIL.LACFIL.LAEFIL 

INTEGER  SYSFIL,POTFlL.CCFFr...LCOFIL.ICARD.TEXFIL.IPRIN. 
2  SCRFIL.HPLFIL.LRAFIL.ORGFIL.RAOFIL.RMSFIL.SEVFIL.SPDFIL. 

2  SPTFIL.LACFIL.LAEFIL 


COMMON  /PHYSCO/  II .TPI .PI .PICT. DECRAD , RADDEC .VKMETR .METRVK ,GRAV 
2  RHO. GNU. RHOS.RHOF. GNUS. CIUF.FTMETR. PUIITS .REYSCL 
COMPLEX  II 

CHARACTER*4  PUNITS(21 

REAL  TPI. PI. PIOT. DECRAD. RADDEG. VKMETR. METRVK. GRAY. RHO. GRU.RHOS. 
1  RHOF.GNUS.CNUF.FTMETR 


COMMON  /STATE/  LAT . VRT . LOADS . ADORES . SALT . HEAD . EXROLL. BKEEL 
LOGICAL  LAT . VRT . LOADS . ADDRES . SALT . HEAD . EXROLL . BKEEL 

COMMON  /STELEM/  STfLEM 
COMPLEX  STELEM (4. 9, 260) 


o  * 

o  t 


COMMON/TELEM/TELEM 


COMPLEX  TELEN(4.0,1O) 

COMMOl  /WQHTS/  WTDL.EORM 
REAL  VTDL(10.2S},IORH(4,10.2S) 

COMPLEX  TV(3;3) ,TL(3.3) ,EXCV(3) ,EXCL(3) ,HJV(3) ,HJL(3) ,H7 
COMPLEX  STV(3,3; .CDUM(3,3) ,SF3(26) ,SH3(26) 

DZMEIISIOI  SA33(26),SB33(25; 

DATA  ISIGO  70/ 

READ  (SCRFIL)  VTDL.MORN 
REWIRD  SCRFIL 
REWIID  COFFIL 
READ  (COFFIL)  TELEM 
DO  300  IV-1,IVK 
V  =  VFS(IV) 

MNU  =  IRMD(IV) 

DO  200  IB>1,RHU 
HDRG  «  MU(IH.IV) 

SIINU  •  JIH(BDHG) 

COSMU  «  COS(HDRG) 

COR  =  V*COSRU/GRAV 

DO  100  IW=1.R0MEGA 

ALPHA  «  OMEGA(IW)»CON 

ONEGAE  =  ABS(0MEGA(IW)*(1.0-ALPBA)) 

IF  (OMEGAE  .LT.  SIGMA(l))  OMEGAE  =  SIGMA(l) 

WE  =  OMEGAE 
WE2  <=  UE*WE 
CALL  FIRTSP  (ONEGAE) 

DO  60  K=:,RSTATR 
SA33(K)  =  0. 

SB33(K)  »:  0. 

MPT  =  KOFSET(K) 

IF  (RPT  .LT.  2)  CO  TO  60 
M  =  (K-l)*10  ♦  1 

CALL  AMD  (OMEGAE, STELEM(1.1.M),STV,CDUM) 

SA33(K)  REAL(STV(2.2))/(-WE2) 

SB33(K)  =  AINAC(STV(2.2))/WE 
60  CORTINUE 

CALL  AMD  (OMEGAE. TELEM. TV, TL) 

IF  (ISIGMA  .RE.  ISIGO)  CALL  RDPELM 
ISIGO  =  ISIGMA 

CALL  EXFOR  (ONECA(IW) .OMEGAE .EXCV .EXCL.HJV . HJL.H7 .SF3 .SH3) 
WRITE  (COFFIL)  OMEGAE .TV, TL . EXCV , EXCL.HJV .HJL. H7 
IF  (LOADS)  WRITE  (LCOFIL)  ( SF3( I ) . SH3(I ) ,SA33(I ) , SB33(I ) . 1=1 , 
2  MSTATA) 

100  CORTIRUE 
200  CORTIRUE 
300  CORTIRUE 

REWIRD  COFFIL 

RETURR 

ERD 

C  DECK  CORIWT 

SUBROUTIRE  CORIWT  ( W  .CELEM , RRCDE ) 

•  SUBROUTIRE  TO  CERERATE  WEICHTF  FOR  IRTEGRAL  ALONG  CONTOUR 

•  DEFIMED  BY  PARAMETRIC  SPLIRE  CURVE 

•  IRPUT 

•  CELEM(8. J) , J=1 . (RRODE-l)  PARAMETRIC  SPLIRE  FIT  TO  HULL 

•  CONTOUR  IH  ERDPOIRT-TARGERT  FORMAT- 

•  X(0),Y(0).DX(OJ .DY(0; .1(1) ,Ylli .DX(1).DY(1) 

•  OUTPUT 

•  W{ J)  ,J=1 .RHODE  WEIGHTS  SUCH  THAT  INTEGRAL  OF  F.DS  = 

•  SUM  OF  F(J)  .W( J) 

COMMON  710/  SYSFIL.PCTFIL. COFFIL. LCOFIL. ICARD.TEXFIL.IPRIN. 

2  SCRFIL. HPLFIL.LRAFIL.ORCFIL.RAOFIL.RMSFIL.SEVFIL.SPDFIL. 


SO 


2  SPTFIL.LACnL.LAEFlL 

IITEGER  SYSFIL , POTFIL, COFTIL , LCOFIL . ICARD .TEXFIL , IPRIH , 

2  SCRFIL ,  HPmL , LRAFIL  .ORGFIL ,  RAOFIL , RKSFIL ,  SEVFIL ,  SPDFIL , 

2  SPTFIL.LACFIL.LAEFIL 

'  “^^'DIHEKSIOH  CEL^ 

DIMEfSIOM  TG(IO) ,LU)T(6) 

DINEHSIOR  A(5.5),  IP(5),W(10) 

DIMERSIOH  F(10)  ,CF(4)  .CD(6)  ,CG(8)  .CGKP) 

DIMERSIO*  X(4),Y(4),ST0RCP(9,E) 

DIHEISIOB  SCR(3)  .XDS(E)  .YI1S(6)  ,SUM(6) 

IF  (RHODE. GT. 10)  WRITE  (IPRIH, 602}  HHODE 

IF  (HHODE. GT. 10)  STOP 

IF  (IHODE.lt. 2)  WRITE  (IPRIN,602)  HHODE 

IF  (HH0DE.LT.2)  STOP 

602  FORMAT  (’  ERROR  -  COKIWT  -  HHODE  =  ',15) 

HELEH-HNODE-1 
DO  1  1=1,  HHODE 

TG(I)=I-1 

1  COHTIHUE 

DO  2  1=1,  HHODE 

W(I)=0.0 

2  COHTIHUE 

•  lit  polynomiftl  to  dl/dt 

•  sat  up  matrices 

DO  3  1=1 ,6 

T=0.25*(I-1) 

A(I,l)=1.0 
DO  4  J=2,6 
A(I.J)=T*A(I.J-1) 

4  CONTINUE 

3  CONTINUE 

CALL  RDCOMF  (B,B,A,IP) 

IF  (IP{6}  .EO.O)  CO  TO  101 
DOB  K  =  l, HELEN 
X(1)=CELEM(1,K) 

X(2)=CELEM(3.K) 

X(3)=3.0*(CELEH(B.K)-CF,LEM(  1  ,K)  )-2 .0*CELEM(  3  ,K  )-CELEM  (7  ,K ) 
X(4  =CELEMf7,K)>C£LEM(3,K)+2.0»(CELEM(l.K)-CELEM(S.K)) 
Y(1)=CELEM{2,K) 

Y(2)=CELEM(4.K) 

Y(3)=3.0«(CELEM(6.K)-CELEM(2,K))-2.0*CELEM(4,K)-CELEM(8,K) 
Y(4)^CELEM(8,K)*CELEM(4.K)*2.0-(CELEM(2,K)-CELEM(6.K) ) 

•  evaluate  dl/dt  at  live  points  over  (0,1) 

CALL  PDER  (SCR.IDXD.X.4) 

CALL  PMPY  (XDS.IDXDS.SCR.IDXD.SCR.IDID) 

CALL  PDER  (SCR.IDYD.Y,4) 

CALL  PMPY  (YDS.IDYDS.SCR.IDYD.SCR.IDYD) 

CALL  PADD  (SUM.IDSUM.XDS.IDXDS.YDS.IDYDS) 

no  6  1=1,5 

T=0.25e(J-i) 

CALL  PVAL  (TEMP. T. SUM. IDSUM) 

DLDT(I)=SQRT(TEMP) 

6  CONTINUE 

•  lit  polynomial  to  dl/dt 

■  evaluate  matrix  solution 

CALL  RSOLVE  (6 . 6 . A .DLDT. IP ) 

DO  7  1=1.5 

STORCD(K.I)=DLDT(I) 

7  COHTIHUE 
6  COHTIHUE 

•  calculate  weights 


DO  8  1  =  1. HHODE 


DO  e  Jsl.llODE 
F(J)«0.0 
9  COmiUE 
F(I)»1.0 

CALL  SPFIT  (TG.F.FELM.mODE) 

DO  10  J=i.IIi:LFJ( 

CF(1)«FELHU,J) 

CF(2)*(rELM(3,J)-FEXM(l,J)-FELM(2,J)/3.-FELH(4,:)/6.) 

CF(3)*FELK(2,J)/2. 

CF(4)»(FELM(4,J)-FEXM(2,J))/6. 

DO  11  K»1.6 

CO(K)=STORCD(J,K) 

11  COSTIRUE 

CALL  PR.Py  (CC,IDG,CD.5,CF,4) 

CALL  Pirr  (CGI.IDCI.CG.IDG) 

CALL  PVAL  (VALO.O.O.CGI.IDGI) 

CALL  PVAL  (VALl.l.O.CGI.l'DGI) 

WCDcWCD+VALi-VALO 
1C  CORTIBUE 
8  COITIBUE 

RETURB 

101  COBTIBUE 

WRITE  (IPRTH.601)  IP(S) 

STOP 

601  FORMAT  ('  ERROR  -  COHIWT  -  IP(6)  =  ’,16) 

EBD 

C  DECK  CPFIT 

SUBROUTINE  CPFIT  (X,  Z.  CELEHS ,  KFTS) 

•  CPFIT  CREATED  FROM  SPFIT  E  K  HUBBLE  JUNE  1977 

•  FITS  CUBIC  NOH-PARAHETRIC  SPLINE  SEGMENTS 

•  TO  SET  OF  COH.^LEX  DATA  POINTS 

•  INPUTS 

•  X  =  ARRAY  OF  REAL  INDEPENDENT  VARIABLES 

•  Z  -  ARRAY  OF  COMPLEX  DEPENDENT  VARIABLES 

•  BPTS  =  lUMBER  OF  (X,Z)  DATA  POINTS 

•  RETURN 

•  CELEMS  «  ARRAY  OF  (HPTS-1)  SEGMENTS  IK  FOLLOWING  FORM 

•  (  (Z(I),  Dfl).  Z(I*1),  D(I+1)  )  ,  WHERE 

•  D  =  ARRAY  OP  SECOND  DERIVATIVES  AT  DATA  POINTS 

•  ARRAYS  A.B.C  ARE  MAINLY  SUB  DIAG  .  .  DIAGONAL,  AND  SUPER  DIAG 

•  D  ARRAY  IS  THE  RIGHT  HAND  SIDE  OF  MATRIX  EQUATION 

•  SECOND  DERIVATIVES  AT  BODES  ARE  PLACED  IN  D  ARRAY  AFTER  SOLUTION 

•  SOLUTION  TECHNIQUE  IS  GAUSSIAN  ELIMIBATION 

•  BOUNDARY  COKDITIOBS  SET  BY  EXTRAPOLATION  OF  SECOND  DERIVATIVES 

COMMON  /lO/  SYSFIL.PCTFILCDFFIL.LCOFIL.ICARD.TEXFIL.IPRIN. 

0  SCRFIL.HPLFIL.LRAFIL.ORGFIL.RADFIL.RMSFIL.SEVFIL.SPUFIL, 

0  SPTFIL.UCFIL.LAEFIL 

INTEGER  SYSFIL.POTFIL.COFFIL.LCOFIL.ICARD.TEXFIL.IPRIN , 

2  SCRFIL.HPLFIL.LRAFIL.ORCFTL  RA0FIL,RMSFII.,SEVF1L.5PDFIL, 

2  SPTFIL.LACFIL.LAEFIL 

COMPLEX  Z.  ZDD,  STORE,  D,  CELEMS 
DIMENSION  X(NP7S)  ,2(NPTS; ,CELEMSt4 ,NPTS  ) 

DIMENSION  A(IOO),  B{100),  C(IOO).  D(IOO) 

N  *  BPTS 
NLl  =  N  -  1 
BL2  =  N  -  2 
DO  60  1=2, N 

IF  (X(I)  .CT.  X(I-l))  CO  TO  SO 
WRITE  (IPRIN,8B8)  X(I-n,X(l) 

CO  TO  8888B 
SO  CONTINUE 


IF  (»  .LE.  100)  CO  TO  100 
WRITE  (IPRIi,999) 

I  s  100 

100  comiuE 

IF  (S  ,GT.  2)  CO  TO  12B 
D(l)  -  fO.0,-  0.0) 

D(2)  «=  (C.O.  0.0) 

GO  TO  376 
125  COHTIRUE 

IF  (K  .GT.  3)  GO  TO  160 

200  ■=  2.*((X(3)-X(:))*Z(1)+(X(2)-X(1))»Z(3)-(X(3)-X(1))*Z(2)) 
.  /((X(3)-X(2))*(X(2)-X(1))*(X(3)-X(1)); 

D(1)  s  ZOD 
0(2)  =  ZOD 
0(3)  =  ZOD 
GO  TO  376 
150  COHTHUE 

DO  200  1^1. K 
A(I)  =  0.0 
B(I)  =  0.0 
C(l)  =  0.0 
D(l)  =  (0.0,  0.0) 

200  COKTIRUE 

•  set  up  matnceE  (a  tridiagonal  rttructare) 


I 

I 

I 

I 

I 

I 


A(l)  *  (X(3)-X(2))/(X(3)-X(1)) 

C(l)  =  2.'-> 

B(l)  =  1.0  -  A(l) 

0(1)  =  6.0*((2(3)-Z'2))/(X(3)-X(2))-(Z(2)-2(l))/ 

1  (X(2)-X(1)))/(X(3)-X(1)) 

E  =  X(3)  ~  X(2) 

DC  250  1=3, BLl 
HP  =  X(I+1)  -  X(I) 

C(I)  =  HP  /  (H+HP) 

B(I)  =  2.0 
A(l)  =  1.0  -  Cfl) 

0(1)  =  6.0*((Z(I*1)-Z(I))/HP-(2(I)-Z(I-1))/B)/(HP+R) 
H  =  HP 

250  CONTINUE 


I 

I 

I 


bouTid&ry  conditions 

C(2)  =  (X(2)-X(1))/(X(3)-X(:>)) 

A(2)  =  1.0 

B(2)  ^  -1 .c-cr2) 

C(2)  =  -A(2)*A(1)/B(1)  ♦  C(2) 

D(2)  -  (0.0,  0.0) 

CCK)  (X()i)-XCJi-l))/(Xvfc‘-:)-X(»-2)) 
A(H)  ^  -1  .C  '  C(I) 

B(K)  =  1.0 
D(B)  -  (O.C.  0.0) 


•olvo  «qu&t lont 


II  =  1 

DO  3C0  I=1.J(L2 

11  =  J  V  1 

12  =  1*'  I 

AUGR  =  A»S  (B(I)  ) 


IF  (AUGH  -LT 
CDKST  :=  A(ll) 
B(I1)  =  B(ll) 
Ddl)  *=  D(I1) 
IF  C  .XE  XL 
A(N)  ^  A(X)  - 
D(X)  =  DCX;  - 
CO  TO  300 
27h  CDHTINUE 
II  I  +  1 
D(i)  ^  DCI)  / 
D(Il)  =  D(Il) 


1  .OF -06  )  CC  rz  276 

/  B(  1  ) 

*  COHST*Cd  ■ 

-  COIST*D( I  ' 

)  CO  TO  300 
C(II  >-C(  I  ‘  ^  Br  I  . 
C(I)«D(I  )  /  hi  I  - 


c(n 

'  Edi  )*D(I  * 


I 

I 

I 

I 

I 

I 

I 


I 


I 


88 


CN  C'i  n 


END 


C  DECK  REITER 

SUBROUTIHE  RLITER  (SPIKDI .TOIKDX , MSPIND .KTOIND .DATA , IC , RLCALC , 
2  ROLL) 


♦  roll  itar&tion 

COMMOH  /DATIHP/  OPTK , MOTN .BSCFIL , VLACPR, RAOPR . RLDHPP. .DISPLKT , 

2  LRAOPR , ADRPR , ORGOPTH . GMNOH . KG . ST ATN ( 26 ) . NSOFST ( 25 ) , 

2  KLEWF(26),HLFBTH(10.2S) . WTRLNE( 10 . 25) ,BLEWF(25) .TLLWF(25) , 

2  AREALF(26) .RPTLOC , PTRUMB ( 10) .PTNAME , XPTLOCC 10) .YPTLQC(IO) . 

2  ZPTLOC(IO) ,RBB.F3NUHB( 10 ) .FBNAME . XPTFBDC 10) .YPTFBD(IO) . 

2  ZPTFBD(IO) .FBCODE(IO) ,FBTYPE,RDCT(10) , VKDES ,FKDES , 

2  STATKM.ETATIS 

CHARAC'^ER*4  PTNAHE(8. 10) ,F3HAME(e , 10) .STATNH(B) ,FBTYPE(3 , 10) 
INTEGER  OPTN, MOTN, BSCFIL, VLACPR, RAOPR, ADRPR, RLDMPR.FBCODE, 

2  rBNUHB,PTNUMB,ORGOPTN 
REAL  KG 

COMMON  /ENVIOR/  VK , NVK , MU ,NHU , OMEGA , NOMEGA , SIGMA , NSIGMA , SiGWH , 

1  HSIGWn  .TMODAL  ,  NTMOD  ,  NRANG  ,R/iNG ,  RLANG  ,  S  ,NNHU ,  FRNUM ,  VFS 
INTEGER  NVK,NMU ,NOMEGA,NSIGMA, NSIGWH, NTMOD, NRANG, NNMUl 8) 

REAL  VK(8) ,MU(37,8) , OMEGA (30 ), SIGMA ( 1 0 1 , SIGUH(4) , TH0DAL(8 ) , 

2  RANG(8)  ,RLANG(8)  ,S(30,8)  ,F?.NUM(8)  ,VFS(8) 

COMMON  /INDEX/  PFIDX . LPFIDX , RMIDX , LRMIDX , SVIDX , LSVIDX 

INTEGER  LPFIDX, LRMIDX, LSVIDX 

REAL  PFIDX(236) , RMIDX ( 183) , SVIDX ( 3 1 

COMMON  /lO/  SY3FIL,POTF:L,COFFIL,LCOFIL,ICARD.TEXFIL, JPRIN, 
SCRFIL,HPLFIL,LRAFIL,ORGFIL,RAOFIL,RMSFIL,SEVFIL,SPDFIL, 
SPTFIL.LACFIL,LAEFIL 

INTEGER  SySFIL,POTFIL,COFFIL,LCOFIL,ICARD,TEXFlL,IPkIN, 
SCRFIL,HPLFIL,LRAFIL,DRGFIL,RA0F1L,RMSFIL,SEVFIL,SPDFIL, 
SFTFIL.LACFIL.LAEFIL 

COMMON  /RESPH/  HRESP , IPGINT( 182; , IKOTN ( 182) , ITYPE( 132) , 

2  ILIN(182) ,ISYM(1G2) 

LOGICAL  ILIN,ISYM 

LOGICAL  LINEAR, SYMMET 

DIMENSION  DATA(432) ,SPINDX(9) ,TOINDX (9 ) . RLCALC(e , 24 ) , 

2  RCui.(13,64,4) 

Ih  =  1 

DO  6  N=1,NRESP 

IF  (IHOTN(N) .EQ.4  .AND.  ITYPECN) . EQ  .  1 )  IR  -  H 
6  CONTINUE 
KR  =  IR  +  1 
LINEAR  =  ILIN(IR) 

SYMMET  ISYH(IR) 

NPREDH  =  13 

NDATA  •---  (2  +  2*NRANG)*NPREDH 
DO  300  IS--1, NSIGWH 
K  =  0 

CON  =  SIGWH(IS)*STAT1S 
DO  200  IT0=1, NTMOD 
DO  100  IVi:,NVK 
K  =  K  +  1 

CALL  FETCH  f  KR  ,  IV  .  ITO  ,  DATA  ,  KKID.i ,  SPINDX  ,TOi;;DX ,  NDATA  ,  LRMIDX  , 

2  NVK, NTMOD, RMSFIL) 

L  =  2*NPREDH 
DO  10  lA-^l  , NRANG 
DO  10  1H=1,NPHE0II 
IF  (IC  .EQ.  1)  TEMP  =  DATA(L+1) 

IF  (IC  .EQ.  2)  TEMP  '  DATA(L42) 

L  -  L  +  2 

RI.CALC(IA,IH)  =  TEMP  4  CON 
10  CONTINUE 

DO  60  I H-1, NPREDH 

CALI.  RLITK  (RLANG, NRANG, RLCALtd, 111)  ,R0LL(I11,K, is;) 


1  SO 


60  COSTIBUE 
100  CONl'IHUE 
200  CONTINUE 
300  CONTINUE 

RETURN 

END 

C  DECK  RLITR 

SUBROUTINE  RLITR  (RLAHO , NRANG .RLCALC , RLANS ) 

DIMEHSIOB  RL.AHG(8) ,RLCALC(8) ,DIFF(8) ,ELM(4.8) 

DO  10  IA=1. NRANG 

DIFF(IA)  =  RLANG(IA)  -  RLCALC(IA) 

10  CONTINUE 
XO  =  0. 

IF  (XO  .GE.  DIFF(l))  GO  TO  20 
RLANS  =  RLCALC(l) 

GO  TO  40 

20  IF  (XO  .LE.  DIFF(NRANG))  GO  TO  30 
RLANS  =  RLCALC(NRANG) 

GO  TO  40 

30  CALL  SRFIT  (DIFF . RLANG , ELM , NRANG ) 

CALL  SPLVAL  (DIFF . NRANG . ELM , 0 RLANS ,DUM , lELM) 

40  CONTINUE 

RETURN 

END 

C  DECK  RMS 

SUBROUTINE  RKS  (KREC .RAO  1 , RAD2 . IT .N , R . E2 , NPREDK , NLCH , N1 , N2 .DATA . 
2  IRES'’. NEETA) 

COMMON  /ENVIOR/  VK . NVK . MU . NHU , OMEGA . NOHEG A  ,  SIGMA , NSIGMA , SIGUH  . 

1  NSIGUK.THODAL.NTKOD .NRANG , RANG . RLANG .S . HHMU .FRNUK .VFS 
INTEGER  NVK. NMU.NOMEGA, NSIGMA, NSIGUK.NTMOD, NRANG, NNMU(8) 

HEAL  VK(8) .MU(37,8) ,0MEGA(30) ,SIGMA( 10) ,SIGWH(4) ,TMCDAL(8) , 

2  RANG(8) ,RLANG(8) ,S(30.8) ,FRNUK(S) ,VFS(8) 

DIMENSION  DATA(432) .KREC (13), RAO  1(30,8, 13) , KA02( 30 , 8 , U ) , R(30 ) , 

2  B2(36) 

REAL  LHr,(24) 

6  CONTINUE 

L  2*NPREDH 
DO  60  IA=1,N 
DO  40  IH^l.KMU 

11  =  Ml  +  IH 

12  =  N2  -  IH 

IF  (12  ,LE.  0)  12  =  12  +  NEETA 
IF  (KREC(IK)  .GT.  0)  GO  TO  10 
LMS(Il)  =  0. 

GO  TO  40 

10  DO  20  1=1 .NOMEGA 

20  R(I)  =  RA01(I.IA,IH)*S(I  .ID 

CALL  ALCRNG  (NDMEGA  , OMEGA , R ,LMS ( 1 1 ) ) 

IF  (KREC(IH)  .EQ.  1)  LMS(I2)  =  LMS(H) 

IF  (KP.EC(IH)  .EQ.  IJ  CO  TO  40 
KH  =  IH  -  1 
DO  30  1=1 .NOHEGA 

30  R(l)  =  RA02(I,1A.KH)*S(I ,1T) 

CALL  Al.GRNG  ( NOMEGA  .  OMEGA  ,  R  ,LMS ( 12 ) ) 

40  CONTINUE 

DO  60  IPH=1  .NPKKDH 

CALL  XMSSC  (IPH,B2,I.MS,HI.CH,RMSLC,RMSSC) 

IF  (IHESP  .EO.  7)  GU  TO  46 
RM.-LC  =  SQRT(RMSLC) 

RM3SC  =  SQRT(RMSSC) 

46  L  =  L  +  1 

DATA(L)  =  RM5LC 


]  SG 


L  =  L  +  1 
DATA(Lj  =  RMSSC 
60  COHTINUE 
60  C08TIHUE 

RETURH 

ENlj 

C  DECK  RMSCjUT 

SUBROUTIHE  RMSOUT 

CQMMOH  /DATIHP/  OPTN  HOTN , BSCFIL , VLACPR .RAOPR. RLDMPR .DISPLMT , 

2  LRA0PR,ADRPR,0RG0PVN.CMN0M,KG.STATN(25) ,HS0FST(25), 

2  KLEWF(25) ,HLFBTH(10,2£ ) , WTRLNEv 10 . 25) , BLEWF(25 ) ,TLEyF(25) , 

2  AREALF(26) , HPTLOC , PTNUMB ( 10) , PTNAME . XPTLOC( 10) .YPTLOC(IO) . 

2  ZPTLOC(IO) ,HBB,FBRUMB(10),FENAME.XPTFED(10) .YPTFBD(IO) , 

2  ZI'TFBDdO)  .FBCODE(10).FBTYPE,RDOT(10)  .VKDES.FNDES, 

2  STATNM.STATIS 

CHARACrER*4  PTNAME(8,10) ,FBKAHE(8 , 10) , STATKM(5 ) , FBTYPE( 3 , 10) 
INTEGER  OPTN, MOTK, BSCFIL. VLACPR, RAOPR.ADRPR, RLDMPR, FBCQDE, 

2  FBNUMB.PTNUMB.ORGQPTN 
REAL  KG 

COMHOR  /ENVIOR/  VK , N Vk , MU , NMU , OMEGA , NOMEGA .SIGMA , NS  I GMA , SIGWH . 

1  NSIGHH . TMODAL , NTMOD . NRANG . RANG , RLARG , S , KNMU , FRNUH , VFS 
INTEGER  NVK.NMU, NOMEGA, NSIGMA.NSIGWH.NTMOD, NRANG, NNMU(8) 

REAL  VK.'S)  .MUf37,o'  0MFGA(30)  ,SIGMA(  10)  ,SIGWH(4)  ,TH0DAL(8)  , 

2  RANG(8) ,RLANG(8) ,S(30,b) ,FRNUM(8) .VFS(8) 

COMMON  /GEOM/  X,NSTATK,Y.Z,NOFSET,LPP, BEAM. draft, LCF, 

1  VCG . GK . DELGM . NEBLA , KPII Cfi , KBOLL , KY AW .KYAWRL . AUP . VCB , FBDX . FBDY , 

2  FEDZ , NFREBD ,XPT , YPT, ZPT , NPTS ,LCB . GKL . ASTAT . BSTAT .TITLE, HASS , 

2  DISPLM , IPITCH , IROLL , lYAV . lYAWRL . CKEAVE , CPITCH , CHEAPI , CROLL , 

2  AREAMX.WSURF. GIRTH. FBDZV.DBLWL.TLCB 

INTEGER  NSTATN , NOFSETC 25 ) , NFREBD , NPTS 
CHARACTER*4  TITLE(20) 

REAL  X(25) ,Y(10 .25) . Z ( 10 ,25 ) , FBDZV fS , 10) , LPP . BEAM ,DBLW1. , TLCB . 

2  DRAFT . LCF , VCG , GM , DELGM . HEBLA . KPITCH . KROLL, KYAW .KYAWRL . AWP . VCB . 

2  FBDX(IO)  .FBDYdO)  .FBDZdO)  .XPTClO)  .YPTdo'  ,2PTd0)  .LCB.GML, 

4  A.;TAT(25)  .BSTAT(25)  .HASS, DISPLM. IPITCH. IRDLI.,IYAW. 

5  lYAURL.CHEAVE, CPITCH, CHEAFI, CROLL, AREAMX.WSURF, GIRTH (25) 

COMMON  /INDEX/  PKIDX . LFFIDX .RMIDX . LRMIDX , SVIDX , LSVIDX 

INTEGER  LPFIDX, LRMIDX, LSVIDX 

REAL  PFIDX(236)  , RHIDXd83)  , SVIDX (3 ) 

COMMON  /lO/  SYSFIL,POTFIL.COFFIL.LCOFIL,ICARD,TEXFIL,IPRIN. 

2  SCRFIL.HPLFIL,LRAFIL,ORGFIL,RAOFIL,R.MSFIL,SEVFIL,SPDFTL 
2  SPTFIL.LACFIL.LAEFIL 

INTEGER  SYSFIL.POTFIL.COFFIL.LCOFIL.ICARD.TEXFIL.TPRIN, 

2  SCkFIL.HPLFIL.LRAFIL.ORGFIL.RAOFIL.RMSFIL.SEVFIL.SPDFIL, 

2  SPTFIL.LACFIL.LAEFIL 

COMMON  /LOADS/  NLOADS , SWGHT(25 ) , SMASS (25) . XLDSTN ( 10) ,XLDXPT(25) , 
2  LSTATN(26) 

COMMON  /PKYSCO/  II , TPI , PI , PIOT , DEGRAD , RADDEG . VKMETR , METRVK , GRAV , 
2  RHO , GNU , RHOS , RHOF , GNUS , GNUF , FTMETR , PUNITS , REYSCL 
COMPLEX  II 

CHARACTER*4  PUNITS(2) 

KtAL  TPI ,P1 , PIOT, DEGRAD .RADDEG, VKMETR, METRVK, GRAV, RHO, GNU, RHOS , 

1  RHOF, GNUS, GNUF,  FTMETR 

COMMON  /RESPN/  NRESP  ,  [POINT ( 182 ),  IM0THd82 ),  ITYPE(  1 82 )  . 

2  ILIN(182) ,ISYM(182) 

LOGICAL  ILIN.ISYH 

COMMON  /SEVERE/  NRSII.D , RSINDX . NSWIND , SWIHDX , RSVTOE , RV . RH 
REAL  RSINDXd4)  ,SWINDX(6)  ,RSVT0E(402) 

INTEGER  RVd3)  .RHd3) 

COMMON  /SHPSYS/  FIS . AS , SIS , SOS ,SDS  .HALOS , DEV ,PRN . SMPPS , SMPIS . 
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K>io  ro 


SMPOS . SMPDS . SRPTYPS .SHIPS , VARS . CYCLS , TITLES , O’^TION . LSIS . LSOS , 
LSDS.LHALOS.LDEV.LPRN.LSHPPS.LSMPIS.LSMPOS.LSMPDS.LSHPTVPS, 
LSHIPS.LTITLES 
CHARArTER*160  AS 

CHARACTER*80  FIS , SIS .SOS , SDS .TITLES 

CHARACTER*20 ■ HALOS .DEV . PRN  . SMPPS . SHPIS . SMPOS . SMPDS . SHPTYP3 
CHARACTER  SHIPS*6 . VARS*2 , CYCLS*2 
INTEGEa*2  OPTION 

DIMENSION  XIDOll)  .yiD(182.5) 

DIMENSION  IM0DL(4) .LSVRSP(13) 

CHARACTER*4  RTITL(2) .RTYPEO) .RUNIT(3) . RSPNME(2 , 13) 

CHARACTER* 1  BLANK. BT(80) 

CRARACTER*2  AC(2),AT.AVK 
CHARACTER* 10  PARSl 
CHARACTER*110  PARS, SEA 
CHARACTER* 100  PARS2 
DIMENSION  HDNG(24) 

DIMENSION  DATA(432)  .SPINDXO)  .TOINDXO)  .RMS(8.24)  ,r.0LL(  13 . 64 , 4 )  , 
2  ELM(4.8) ,RMSTBL(25.8,8) ,T0ETBL(2S , 8 , 8 ) ,TEMRMS(13) ,TEMT0E(13) 
DIMENSION  INDXRL(25) ,INDXHD(2S ) . HEADNG ( 26) 

LOGICAL  LINEAR, SYMMET 
INTEGER  TOETBL, HEADNG, TEMTOE 
EQUIVALENCE  (IPOINT.YID) .(XID.MRESP) 

CHARACTER*4  METER , MET , FT  ,  AC0ND(3 , 2) . BS , SUNIT 

DATA  METER, MET, FT  /’METE’,'  M.  FT.’/ 

DATA  LSVRSP  /3 ,5 , 2 . 4 ,6 . 9 ,8 , 9 . 8 ,9 , 8 ,9 .8  ' 

DATA  RSPNME  / ’ HEAV ' , 'E ’ , ’PITC ’ . ’ H ’ , ’  SWA’.Y’,’  ROL’.’L’, 

2  ’  YA’ , ’W’ , ’PlVA’ , ’C’ . ’PILA’ , ’C’ , ’P2VA’ . ’C’ , ’P2LA’ , ’C’ , 

2  ’P3Vi’  ’C‘  ’P3IA’  T’  ’P4VA’  'C'  ’P4I'’  'C'/ 

DATA  INDXRL  /I. 2, 3, 4, 5, 6, 7, 8, 9^ 10, 11, 12, 13, 12, 11, 10, 9, 8. 7, 6. 5, 4, 
2  3,2,1/ 

DATA  INDXHD  /13 , 12 , 1 1 , 10 ,9 , 8 . 7 ,6 . S ,4 , 3 , 2 , 1 . 24 , 23 , 22 , 2 1 , 20 , 19 , 18 , 
2  17,16,16,14,13/ 

DATA  HEADNG  /O , 15 . 30 ,45 , 60 , 75 . 90 . 105 , 120 , 135 , 150 , 165 , 180 , 

2  360 , 345 , 330 ,315,300,285, 270 , 255 , 240 .225,210, 195 . ISO/ 

DATA  HPPG  /C. .15. .30. .45. ,60. ,76. ,90. ,105. ,120. .135. ,150. ,165. , 

2  180. .195. ,210. .225. .240. ,265. ,270. , 286 . , 300 , . 315 . .330. ,345./ 
DATA  AC  /’LC’ , ’SC’/ 

DATA  BLANK  /’  ’/ 

DATA  ACOND  / ’LONG CRES ’,’ TED  ’ , ’ SHOR ’ , ’ TCRE ’ . ' STED ’ / 

NSVRSP  =  13 
NHEAD  =  24 
NSPIND  =  KVK  +  1 
NTOIKD  =  NTMOD  +  1 
NID  -  911 

FIS  =  5DS(1 :LSDS)//’  RMS’ 

OPEN  (UNIT=P.MSFTL,FILE=FIS.3TATUS=’UNKN0WN’  , 

2  ACCESS: ’DIRECT’ ,RECL=17SC) 

*  nodiliod  to  run  on  VAX/VMS 

•  CDC  CALL  READMS  ( RKSFIL , XID , NID , 1 ) 

READ  fRMSFIL.REC=l )  ( XID ( I ) , 1= 1 , 432 ) 

READ  (RMSFIL,REC=2)  ( XID ( I ) , 1  =  433 . 796 )  .L 

IF  (L  .EQ.  NID)  READ  ( RMSFIL , REC  =  3 )  ( XID ( I )  ,  1  =  797 , 91 1 ) 

♦  CDC  L  =  LENG'lH(KMSFiL) 

M  =  (L-l)/5 

IF(L  .NE.  NID)  M  =  159 

**  =  159  means  RMSFIL  was  generated  by  SMP61 

•  M  =  ao2  n.scrs  RMSFIL  was  generated  by  SHF84 


K  =  1 

DO  750  J  =  1  ,6 
DO  750  1  =  1, M 
K  =  K  +  1 
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YID(I.J)  =  XID(K) 

760  CONTINUE 

NP.ESP  =  MRESP 
DO  770  IS^-l.NSIGHH 

’*  lind  moat  probable  period 

SWH  =  SIGWH(IS) 

ir  (PUHITSd)  .NE.  METER)  SUH  =  SWH*FTMETR 

•  significant  wave  height  ranges  below  are  in  meters 

•  sea  state  1 

IK  (SWH  .LE.  0.69)  PER  --  6.0 

*  sea  state  2 

IF  (SWH. GT. 0,59  .AND,  SWH. LE. 1.26)  PER  =5.0 

•  sea  state  3 

IF  (SWH. GT.  1.26  .AND.  SWH. LE.  1.73)  PEP.  =  7.0 

•  sea  state  4 

IF  (SWH. GT. 1.73  .AND.  SWH. LE. 2. 24)  PER  =70 

*  sea  state  6 

IF  (SWH. GT. 2. 24  .AND.  SWH. LE. 3. 97)  PER  =  9.0 

*  sea  state  6 

IK  (.SWH. GT. 3. 97  .AND.  SWH. LE. 6. 34)  PER  =  11.0 

*  sea  state  7 

IF  (SWH. GT. 6. 34  .AND.  SWH . LE . 12 . 29)  PER  =  15.0 

•  sea  state  8 

IF  (SWH. GT. 12.29  .AND.  SWH. LE. 18.77)  PER  =  19.0 

♦  greater  than  sea  state  8 

IF  (SWH  .GT.  18.77)  PER  =  19.0 

IF  (PER  .LT.  TKODAL(l))  PER  =  IMODALd) 

IF  (PER  .GT.  TMCDAL(NTMOD) )  PER  =  TMODAL(NTMOD) 
IMODL(IS)  i 
DO  760  LT=1 ,NTKOD 

IF  (ABS(PER-TMODAL(LT))  .LT.  O.OOOl)  IMODL(IS)  =  LT 
760  CONTINUE 
770  CONTINUE 
ISKPSV  =  0 

IF  (IKOTH(l)  .NE.  1)  ISKPSV  =  1 

•  ISKPSV  =  0  all  notions  -  output  severe  motion  tables 

♦  ISKPSV  =  1  roll  motion  only  -  ship  severe  motion  tables 

IF  (ISKPSV  .EQ.  1)  GO  TO  820 
FIS  =  SDSd  :LSDS)// '  .SEV 

OPEN  (UNIT=3EVFIL.FILE=FIS.STATUS= 'UNKNOWN' , 

2  ACCESS=’PIRECT’ ,RECL=1620) 

NSVRSP  =  6  +  2»NPTL0C 
IF  (NSVRSP  .GT.  13)  NSVRSP  =  13 
CALL  SETSEV  (NSVRSP . LSVRSP ) 

NRSISD  =  NSVRSP  +  1 
NSWIND  =  NSIGWH  +  1 
-’)..ECiJ  =  0 


lb)) 


820  COHTIHUE 


I 


L  =  -  3 
DO  2  1=1,20 
L  =  L  +  4 
K  =  L  +  3 

READ  (TITLE(I) ,5000)  (BTC J) , J=L ,K) 

5000  FORMAT  (4A1) 

2  CONTINUE 
L  =  0 

DO  4  1=1,80 
L  =  L  +  1 

IF  (BT(I)  .RE.  BLANK)  GO  TO  6 
4  CONTINUE 
6  CONTINUE 

IF  (L.EQ.oO  .AND.  BT(80) . EQ . BLANK)  L  =  1 
M  =  L  +  9 

IF  (H  .GT.  80)  H  =  BO 

WRITE  (PARSl.SOlO)  ( BT(I ) . T=L , M) 

5010  FORMAT  (lOAl) 

WRITE  (PARS2,502C)  TITLE 
5020  FORMAT  (20A4,20X) 

*  srite  to  speed  poIsLr  d&ta  eind  text  files 

FIS  SDS(1  :LSOS)//’ .SPD’ 

OPEN (SPDFIL . FILE=FIS , ACCESS= 'DIRECT ' . STATUS= ’ UNKNOWN ’ , 

2  FORM= ■ UNFORMATTED ■ ,RECL=768) 

FIS  =  SDS(l;LSD5)//‘ .SFT- 

OPEN (SPTFIL , FILE=FIS . STATUS= ’ UNKNOWN ' ) 

WRITE  (SPTFIL, 6022)  PARS1,PARS2 

5022  FORMAT(A10/A100) 

PRIDIR  =  90. 

SECDIR  =  0. 

WRITE  (SPTFIL, 6023)  NVK,NHEAD 

5023  F0RHATC2I6) 

WRITE  (SPTFIL, 6024)  ( VK f IV ) , IV= 1 ,NVK ) 

WRITE  (SrTFIL,5024)  (HDNG ( IH)  , IH  =  1 , NHEAD) 

6024  FORMAT(8F10.4) 

*  loop  over  longcrested,  shortcrested  waves 

DO  500  IC=1,2 

CALL  RLITER  (SPIKDX , TOINDX , NSPIND , NTOIND , DATA . IC , RMS , ROLL) 

*  change  for  VAX/VKS  version 

»  CDC  CALL  STINDX  (SEVFIL , RSINDX , NRSIND) 

*  CDC  DO  7  1=1, NRSIND 

*  CDC  RSINDX(I)  =  0. 

CDC  7  CONTINUE 


I 

I 

I 

! 

I 

I 

I 

B 

I 

I 

I 
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•  loop  over  response 

Du  400  Ih=l,NRE5P 
JR  =  0 

IF  (ISKPSV  .EQ.  1)  GO  TO  19 
DO  18  LR=1,NSVRSP 
IF  (IR  .NE.  LSVRSP(LR))  GD  TO  18 
JR  =  LR 
GO  TO  19 

18  CCCTINUE 

19  CONTINUE 
KR  =  IR  +  1 

IP  =  IPOINT(IR) 

IH  =  IMOTN(IR) 


I 

I 

I 

I 


I 


IT  =  iriPEvlH) 

CALL  RSTITL  (IP , IM. IT . rtiTL , RTYPE , RUKIT .PARS) 

LINEAR  =  ILIN(IR) 

SYHMET  =  ISYM(IR) 

NPREDH  =  13 

IF  (.HOT.  SYHMET)  HPREDH  =  24 
S  =  1 

IF  (.HOT.  LINEAR)  K  =  HRANG 
NDATA  =  (2  +  2*M)*IIREDH 

*  change  for  VAX/VMS  version 

*  CDC  IF  (JR  .EQ.  0)  GO  TO  21 

*  CDC  CALL  STINDX  (SEVFIL , SWIRDX .NSWIND) 

*  CDC  DO  8  1=1, NSWIND 

*  CDC  SWINCX(I)  =  0. 

*  CDC  ti  CONiiHUt 

*  CDC2^  CONTINUE 

*  loop  over  significant  wave  height 

DO  300  IS=1,NSIGWH 

CON  =  SIGWH(IS)»STATIS 

IF  (IH.EQ.15)  CON  -  GIGWn(IS) 

*  loop  over  modal  nave  period 

K  =  0 

DO  200  1T0=1.NTM0D 

SWHHAX  =  .202*TH0DAL(IT0)**2 

IF  (PUNITS(l)  .EQ.  METER)  SWHHAX  =  SWHHAX*FrMETR 

*  loop  over  speed 

DO  100  IV=1,NVK 
K  =  K  +  1 

IF  (SIGWH(IS)  .GT.  SWHHAX)  GO  TO  100 

CALL  FETCH  (KR . IV . ITO .DATA , RMIDX . SPINDX .TOINDX , NDATA , LRKIDX . 

2  NVK.NTMOD.RMSFIL) 

*  loop  over  heading 

L  =  2eNPREDH 

DO  10  IA=1  .N 

DO  10  IH=1. NPREDH 

IF  (IC  .EQ,  1)  TEMP  =  DATA(L+1) 

If  (IC  .EQ,  2)  TEMP  =  DATA(L+2) 

L  =  L  +  2 

RMS(IA.IH)  =  TEHP*COf! 

10  CONTINUE 

N1  =  NHEAD  +  1 
DO  60  IH=1.N1 

IF  (IH  .GT.  HPREDH)  GO  TO  50 
LH  =  INDXHD(IH) 

JC  =  (IH-1)*2  +  IC 
IF  (.NOT.  LINEAR)  GO  TO  20 
HKSTBL(LH.ITO.IV)  =  RHS(l.IH) 

GO  TO  40 

20  KH  =  INDXRL(IH) 

RLCALC  =  ROLL(KH.K.IS) 

IF  (RLCALC  .GE.  HLANG(l))  GO  TO  30 
RK3TBL(LH . ITO , IV)  =  KHS(l.IH) 

CO  TO  40 

30  IF  (RLCALC  .L£.  RLANG(NRANG) )  GO  TO  35 
RHSTBL(LH,ITO.IV)  =  RMS ( NRAKG . IH ) 

GO  TO  40 

35  CALL  SPFIT  (RLANG . RMS ( 1 , IK ) , ELM . NRANG ) 

CALL  SPLVAL  (RLANG. NRANG. ELK. RLCALC, RHSTBL(LH. ITO. IV) .PUM.IELM) 
40  TOETBL(LH.ITO.IV)  =  DAIA(JC)  +  .5001 
GO  TO  60 

SO  JH  =  INDXRL(IH) 

RMSTBLdH.ITO.IV)  =  RMSTBL(  JH  .  ITO  ,  IV) 

TOETbLdH.ITO.IV)  =  TOETBL(  JH .  ITO  ,  IV) 


]!»] 


60  CONTIKUE 
100  COKTINUE 

IF  (SIGWH(IS)  .GT.  SWEMAX)  GO  TO  200 

TOEMIH  =09.0 

TOEMAX  =0.0 

RMSMIN  =  RMSTBLCl.ITO.l) 

RMSMAX  =  RMSMIH 
DO  120  IV=1,NVK 
DO  110  IH=1,NHEAD 
TEMP  =  RMSTRI.(IH.ITO.IV) 

VTMP  =  TOETBi,(IH,ITO,IV) 

IF  (VTMP  .GT.  99.)  VTMP  =  99. 

IF  (TEMP  .LT.  RMSMIN)  RMSMIN  =  TEMP 
IF  (VTMP  .LT.  TOEMIN)  TOEMIN  =  VTMP 
IF  (VTMP  .GT.  TOEMAX)  TOEMAX  =  VTMP 
IF  (TEMP  .LT.  RMSMAX)  GO  TO  110 
RMSMAX  =  TEMP 
IF  (JR  .EQ.  0)  GO  TO  110 
IF  (ITO  .NE.  IMCDL(IS))  GO  TO  110 
IF  (SYKHET  .AND.  IH.GT.13)  GO  TO  110 
HXV  =  IV 
MXH  =  IH 
110  CONTINUE 
120  CONTINUE 

IF  (JR  .EQ.  0)  GO  TO  150 

IF  (iTO  .NE.  IMODLdS)')  GO  TO  150 

RSVTOE(l)  =  MXV 

RSVT0E(2)  =  MXH 

IE  =  2 

DO  130  IV=1.NVK 
DO  130  IH=1,NHEAD 
IE  =  IE  +  1 

RSVTOE(IE)  =  RMSTBLdH.ITO.IV) 

IE  =  IE  +  1 

RSVTOEdE)  =  TOETBLdH.ITOdV) 

130  CONTINUE 


*  write  to  severe  motirn  file 

*  change  ior  VAX/VMS  version 

*  CDC  CALL  WRITMS  ( SEVFIL , RSVTOE . IE , IS) 

NRECD  =  NRECD  +  1 

WRITE  (SEVFIL. REC=NRECD)  RSVTOE 

150  CONTINUE 


write  to  speed  polar  file 
ISIGWH  =  SIGWH(IS)*100. 


IF  (ISIGWH  -GE. 

1000) 

WRITE 

(BS,3001) 

ISIGWH 

IF  (ISIGWH  .LT. 

1000) 

WRITE 

(BS,30  2) 

ISIGWH 

IF  (I5I 

GWH  .LT. 

100) 

WRITE 

dS,3003) 

ISIGWH 

IF  (ISI 

GWH  .LT. 

10) 

WRITE 

(BS.3004) 

ISIGWH 

3001 

FORMAT 

(14) 

3002 

FORMAT 

(1H0.I3) 

3003 

FORMAT 

(2H00.I2) 

3004 

FORMAT 

(3H000,11) 

300C 

FORMAT 

(IHO.II) 

3010 

FORMAT 

(12) 

ITMODL 

-  TMODAL(ITO) 

+  .S 

IC2Q 


5025 


IF  (ITHODL  .LT.  10)  WRITE  (AT, 3000)  ITHODL 
IF  (ITMODL  .GE.  10)  WRITE  (AT, 3010)  ITHODL 
SUNIT  =  MET 

IF  (PUNITS(l)  .NE.  METER)  SUNIT  =  FT 

WRITE  (SEA, 3020)  BS , AT . AC (IC ) , SIGWH (IS ) , SUNIT ,TMODAL(ITO ) , 
(ACONDd  .IC)  .1  =  1,3)  .  (STATNMd;  ,1  =  1 ,3) 

FORMAT  (2HBR,A1,2A2.32H  EHETSCHNEtDER  SEAWAY  -  SIGWH  =,F6.2,A4, 
lOH  TKODAL  =.F6.2,7H  SEC,  .  3A4 . 4X  ,  3A4 , 7X ) 

WRITE  (SPTFIL,5025)  PARS. SEA 
FORMAI(Al’O) 

WRITE  dPTFIL,5026)  RMSMIN  , RMSMAX ,1 OEHIN , TOEMAX 


192 


S026  FORMATUnO.S) 

WRITE  (SPDFIL)  (CRKSTBLI'IH.ITO.IV)  ,IV=1.NVK)  ,IH  =  1  .NHEAD) 

WRITE  (SPDfIL)  ((TOETBL(IH,ITO,IV) ,IV=i,NVK) ,IH=l,HfiEAD) 

200  COKTINUE 

IF  (IT  'IT.  :  .AHO.  VLAOFR.EQ.O)  GO  TO  300 
*  print  RMS/TOE  tables 
DO  260  irAGE-1.2 

IF  (IPAGE.EQ.2  AND.  SYMMET)  GO  TO  250 
WRITE  (IPRIN.IOCO)  TITI.E 
1000  FORMAT  ( IHl ,  22X  ,  20A'! ) 

IF  (IC  ,EQ.  1)  WRITE  (IPRIN.lOlO) 

IF  (IC  .EQ.  2)  WRITE  (IPRIN,1020) 

1010  FORMAT  (/68X.11HI.CNGCRESTED) 

1020  FORMAT  (/68X, 12HSH0RTCRE6TED) 

IF  (PUNITS(l)  .ME.  METER)  WRITE  (IPRIN.1030)  SiaWK(IS) 

1030  FORMAT  (45X . 25HSIGmFICANT  WAVE  HEIGHT  =.F6.2.6H  FEET) 

IF  (FONITSd)  .EQ.  METER/  WRITE  (1PRIN.1031)  SIGWH(IS'i 

1031  FORMAT  C45X .DSHSIGSIFICAKT  WAVE  HEIGHT  =.F6.2,7H  METERS) 

IF  (IP.GT.O  .AND.  IM.LE.3)  WRITE  (IPRIN,1032)  (PTN AME( I , IP ) , 

2  1  =  1 .8)  .XPTLOCdP)  .YPTLOC(IP)  ,2PTL0C(IP) 

IF  (IP.GT.O  .AND.  IM.EQ.16)  WRITE  (IPRIK,1032)  (PTNAME( I . IP) , 

2  1  =  1 .8) , XPTLOCdP )  .YPTLOCdP)  .ZPTLOCdP) 

1032  FORMAT  (/27X . 8A4 , 2X , 5HXFP  = , F7 . 2 . 2X . 5H YCL  = , F7 . 2 , 2X  .  5K2BL  =,F7.2) 
IF  (IP.GT.O  .AND.  IM.EO.e)  WRITE  (IPP.IN,1033}  (FBNAHEd  ,  IP )  , 

2  1=1  ,B)  .XPTFBDdP)  .YPTFBDdP)  ,ZPTFBD(IP) 

1033  FORMAT  (/33X , 5A4 , 2X , 5HXFP  = , F7 . 2 , 2X . 5KYCL  = , F7 . 2 , 2X , 5H2BL  =,F7.2) 
IF  (IP.GT.O  .AND.  (IM.GE.IO  .AND.  IM.LE.14))  WRITE  dPKIN,1073) 

2  XLDSTNdP) 

1073  FORMAT  (/58X, TESTATION ,F5. 1) 

IF  (IS  KE.16)  WRITE  (IPRIN  .  1034/  RTITL . RTYPE . F.UNIT 

1034  FORMAT  (/64X  2A4  ,  IX , 3A4/68X . 3A4) 

IF  (IM.FO.IS)  WRITE  (IFRU',1036) 

1036  F0RMAT(/5OX .26HHORI20NTAL  FORCE  ESTIMAT0R/68X , 4H  (G)) 

IF  (IK. IT. 4  .Ahu.  IT  P0.3)  WRITE  dPRIK,1036) 

IF  (IM.EO.lS)  WRITE  dPRIN.1036) 

103b  FORMAT  (  BB.X  ,  1  2H  (  ACC  .  X  ICOd 

IF  (IP.GT.O  .AND.  (IM.GE.IO  .AND.  IM.LE.lD)  WRITE  dPRIN,1063) 
1063  FORMAT  (/67X , 14H (FORCE  /  100  )) 

IF  (IP.GI.C  .AND.  dM.GE.12  .AND.  IM.LE.14))  WRITE  dPRIN,1065) 
1066  FORMAT  (/54X , 16H (MOMENT  /  10000)) 

IF  (IN  .E0.7)  WRITE  (IPRIK,1038) 

1038  FORMAT  C57X , 14K(F0RCE  /  1000)) 

IF  (IM.NE.lD)  WRI-'E  (IPKIN  .  1040)  (STATNH (I )  ,  1  =  1 , 3 ) 

TF  dM.EQ.lS)  WRIT.E  (IPRiN,104)) 

1040  FORMAT  (/40X , 3A4 . 39H  VALUE  /  ENCOUNTERED  MODAL  PERIOD  (TOE)) 

1041  F0RMAT{51X ,42HRM6  VALUE  /  ENCOUNTERED  MODAL  PERIOD  (TOE)) 

IF  (IPAGE  .EQ.  2)  GO  TO  225 

»  Starboard  haadings 

WRITE  (IPR1N,1042)  ( HEADNG ( IH ) . IH= 1 , 13 ) 

1042  FORMAT  (/58X , lOHSHIP  HEADING  ANGLE  IN  DEGREES/4X , IHV , 2X . 2HT0 , 7X , 

2  4HHEAD,47X  ,9H5TBD  BF.AH  ,4eX  ,6HFOLLOV/10X  ,  13(6X  ,  13) ) 

DO  220  IV=1,NVK 
IVK  =  VK(IV)  +  .5001 
WRITE  (AVK,1745)  IVK 
1045  FORMAT  (12) 

WRITE  (IPRIN.IOBO) 

1050  FORMAT  (IH  ) 

DO  220  IT0=1.NTM0D 

SWHMAX  =  .202*TMODALdT0)**2 

IF  (PUKlTS(l)  .EQ.  METER)  SWHMAX  =  SWHHAX*FTHETR 
IF  (SIGUH(IS)  -GT.  SWHMAX)  GO  TO  220 
IMP  =  TMODALdTO)  +  .6001 
DO  210  TR=1,13 

TEHP.MS(I!1)  =  RMSTBLdK.ITO.IV) 

IF  (IM.EQ.IS)  TEHRHSdH)  =  TEHRHSCIH)  ♦  100 
IF  (IM.LT.4  .AND.  IT.EQ.3) 

2  TEHRMSflH)  =  TEMRMidH)  *  100 

IF  (IM  .EQ.  7)  TEHP.HS(IH)  =  TEMRKS(IH)  /  1000. 


IF  (IP.GT.O  .AHD.  aM.GF.lO  .ASD.  IN.LE.ll))  TEMRKS(IH)  = 

2  TEHRMS(IH)/100 

IF  (IP.GT.O  .AND.  (IM.GE.12  .AND.  1M.LE.14U  TEMRHS(IK)  = 

2  TEMRMS(1H)/10000 

TEMTOEaH)  =  TOETBL(IH,1TO,IV) 

IFdEHTOECIB)  .GT.  99)  TEMTOE( IH )  =99 
210  CONTINUE 

WRITE  (IPRIN.10B2)  AVK . IMP , (TEHRMSCIH) ,TEKTOE( IR ) . IH=1 , 13 ) 

1052  FORMAT  ( 3X  ,  A2 , 2X  ,  12 , 3X  .  1 3 IX  .F5 . 2  ,  IH/ .  12) ) 

AVK  =  BLANK 
220  CONTINUE 
GO  TO  250 

•  port  headings 

225  WRITE  (IPRIN,1043)  (HEADNG ( IH) , IH= 14 , 26 ) 

1043  FORMAT  ( /58X , 29HSHIP  HEADING  ANGLE  IN  DEGREES/4X , IHV , 2X , 2HT0 ,7X , 
2  4HHEAD,47X,9HP0RT  BEAK ,4GX . 6HF0LL0W/10X , 13(6X , 13) ) 

DO  240  IV  =  1.»;VK 
IVK  =  VKCIV)  -t  .5001 
WRITE  (AVK, 1045)  IVK 
WRITE  (IPRIN.1050) 

DO  240  1T0=1 ,NTKOD 

SWHKAX  =  .202*TH0DAL(IT0)**2 

IF  (PUNITS(l)  .EQ.  METER)  SWHMAX  =  SWHMAX*FTHETR 
IF  (SIGWH(I3)  .GT.  SWHMAX)  GO  TO  240 
IMP  =  TKODAL(ITC)  +  .5001 
LH  =  26 

DO  230  IH=1,13 
LH  =  LH  -  1 

TEKRKS(IH)  =  RMSTBI (LH.ITO.IV) 

IF  (IM.EQ.15)  TEMRHS(IH)  =  TEKRMS(IH)  •  100 
IF  ('('IK.LT.4  .OR.  IM.F.Q.9)  AND.  IT.EQ.3) 

2  TEMRMS(IH)  =  TF.HRMS(IH)  *  100 

IF  (IM  .EG.  7)  TFMRMS(IH)  =  TEMRMSCH)  /  1000. 

IF  (IP.GT.O  .AND.  (IM.GE.IO  .AND.  IK.LE.ll))  TEHRMS(IK}  = 

2  TEhP.KS(IH)/100 

IF  (.IP  GT.O  .AND.  (,IM.GE.12  .AND.  1M.1.E.14))  TEMRMS(.IK)  = 

2  TEKP.KS(IH)/iOOOC 

TEMTGE(IH)  =  TOETBL (LH , ITO . IV) 

IF(TEHTOE(IH)  .GT.  29)  TEMT0E(ia)=99 
230  CONTINUE 

WRITE  (IPRIN,1052)  AVK  ,  IMP  ,  (TF.KRMS  (IH )  ,TEMTDE(  IH )  ,  1H  =  1 , 13 ) 

AVK  =  BLANK 
240  CONTINUE 
250  CONTINUE 
3G0  CONTINUE 

*  change  lor  VAX/VMS  version 

♦  CDC  IF  (JR  .EQ.  0)  GO  TO  310 

*  CDC  CALL  STINDX  (SEVFIL ,  P.SI  KDX  ,NRSI  ND) 

♦  CDC  CALL  WRITMS  (SEVFIL , SUIKDX .NSWIND , JR) 

•  CDC310  CONTINUE 

IF  (IM.EQ.e  .AND.  IT.EQ.2)  CALL  DKWSLM  (KP. ,  I  „  .  IM  ,  NPRF.DH  ,  N  ,  NDAT  A  , 
2  DATA. INDXRL, IKDXHD, HEADNG ,HDNG, LINEAR, SYKKET.SPINDX .TOIKDX, IF , 

2  RKSTBL, TOETBL, RMS, ROLL) 


400  CONTINUE 

*  change  :  or  VAX/VMS  version 

*  CDC  IF  (ISKPSV  .EQ.  1 )  GO  TO  410 

*  CDC  CALL  STINDX  ( SEVFIL .  SVI DX  ,  LS  VID.'. ) 

*  CDC  CALL  WRITMS  (SEVFIL,  U3INDX  , N P.SIND  ,  ID ) 

*  CDC4I0  CONTINUE 


500  CONTINUE 

CLOSE  (UNIT-RH.SKI!,'l 

IF  (I5;kPSV  .EQ.  0)  CLOSE  (UNIT  =  5EVFIL) 
CLOSE  (UNtT=SPDFIL) 

CLOSE  (UNIT=SPTFIL) 


1<M 


IF  (ISKPSV  .EQ.  0)  CALL  SEVMOT  (NSVRSP , RSPNME, HDNG , IHODL) 


REniRN 

ENL 

C  DECK  RMSIOE 

SUBRUUTIHE  RMSTOE 


*  The  purpose  ol  the  rmstoe  segment  is  to  compute  the  rms .  second  and 

»  fourth  moments,  encounter  spectra  and  associated  periods  of  maximum 

*  spectral  energy  for  any  ship  response.  The  calculations  are  done 

*  for  unit  significant  vave  height  in  long  amd  shotcr*  ated  seas  for 

*  a  series  of  modal  wave  periods.  The  shortcrested  calculations  are 

*  performed  using  a  cosine-sguared  weighting  function. 

*  W.G. MEYERS ,  DTNSRDC,  100777 

COMMON  /DATINP/  OPTN , MOTN . BSCFIL . VLACPR , LADPR , RLDMPR . DISPLMT , 

2  lR AOPR . ADRPR , ORGOPTN . GMNOM , KG . SI ATN ( 26 ) . NSOFST C 26 ) , 

2  NLEHr(25) ,HLFBTH(10.26) ,WTRLNE( 10 . 25 ) , BLEWF( 26 ) .TLEWF(26) . 

2  AREALF(25)  ,  NPTLOC  ,  PTNl’HB  ( 10 )  .  PTC  AME ,  XPTLOC  ( 10)  ,  YPTLCC(IO)  , 

2  ZPTLOC(IO)  .NBB.FBNUMBdO)  .FBNAME.XPTFBDdO)  .YPTFBDilO)  . 

2  ZPTFBDdO)  .FBCODEdO)  .FDTYPE.RDOTdO) ,  VKDES  . FKDES  , 

2  STATNH.S TATIS 

CHARACTER*'!  PTNAME(8.  jO)  , FBK AME(  J  ,  10  '  .STATNM(S)  .FBTYPEO  .  10) 
INTEGER  OPTN, MOTN. ESCFIL, VLACPR, RA0IR,ADRFH,RLDMFR,FBC0DE, 

2  FBNUMB.PTNUMB, ORGOPTN 
REAL  KG 


COMMON  /ENVIOR/  VK . NVK  .  MU , NMU  .OMLGA , NCHEC A , SIGMA , NSIGMA , SIGWH , 

1  NS IGWH .THODAL . NTMQD , NRANG , RANG , FLANG . S . NNMU , FRNUK , VFS 
INTEGER  NVK , NKU . NOMEG A . NSIGMA , NS IGWK , NTMOD , NRANG , NNHU(S ) 

REAL  VK(8) ,KU(37.8) ,0MEGA(30) , SIGMA (10 ), SIGWH ( 4 )  .TMODA'  (3) , 

2  RANG(e) ,RLANG(8) .S(30,8) .PRN''“(6) , VFS(8) 

COMMON  /GEOK/  X.NSTATN.Y.Z.NOFSET.LPP, BEAM. DRAFT. I-CF, 

1  VCG . GM , DELGM , NEBLA , KPI TCH . KROLL . K Y  AW . KY AWRL . AVP . VCB . FBDX , FBDY . 

2  FBDZ  ,  Nt- kpou . XP  1  ,  Y F 1  , ZPT  ,  NP TS  ,  LCH  ,  GHL ,  ASTAT  , RSTAT  .TITLE .HASS , 

2  DISPLM.IPITCH.IROLL.IYAV.IYAWRL.CHEAVE.CPITCH.CHEAPl.CRCLL, 

2  AREAMX.USURF.GIRTH.FEDZV.DBLWL.TLCB 

INTEGER  NSTATN ,N0FSET(26) .NFREBD.NPTS 
CHAF.ACTER*4  TITLF(20) 

REAL  X(25)  ,Yd0,25)  ,ZdC.25)  .FBDZVCS.IO)  ,  LPP  ,  BEAK  .DBLWL  .TLCB  , 

2  DRAFT.LCF.VCG.GM.DELGM.NEELA.KFITCH.KROLL.KYAW.KYAWRL.AWP.VCB. 
2  l-LOX(lO)  .FEDYClO)  .FBDZClO)  .XPTdO)  .YPTdO)  ,  ZPT  (1 0 )  .  LCB  .  GML , 

4  ASTAT(25)  ,  FSTAT ( 25 )  , MASS  , DISPLM  ,  TPITCK  ,  IRCLL  ,  I Y A’-' , 

6  lYAWKL.CKEAVE.CPITCH.CHEAPI ,CR0LL,/.REAMX.WSURF.GIRTH(25) 

COMMON  /.INDEX/  PFIDX  ,  LPFIDX  .  RMIDX  .  LRMIDX  ,  SVIDX  ,  LSVIDX 

INTEGER  LPFIDX, LRMIDX .LSVIDX 

REAL  PFIDX(23..)  ,RKlDXd83)  .3VIDX(3) 

COMMON  /lO/  SYSFIL.POTFIL.COFFIL.LCOFIL.ICARD.TEXFIL, IPRIN, 

2  SCRi'IL.HPLFIL.LRAFIL.ORGFIL.RAOFIL.RMSFIL.SEVFIL.SPDFIl., 

2  SPTFIL.LACFIL.LAEFIL 

INTEGER  SYSFIL ,  POTFIL  .  COFFIL  .  LCOFIL .  ICARD  .TEX.FIL  .  IPR-iJ , 

2  SCRFIL.HPLFIL.LRAFIL.ORGFIL.RAOFIL.RKSFIL.SEVFIL.SPDFIL. 

2  SPTFIL.LACFIL.LAEFIL 


COMMON  /PHYSCO/  Ii 

^  T\Tf/^  r*%t-  TSfTr\/^ 

^  w  » ^11%  V/ ,  1^11  Jo  I  r\iiur  t 

COMPLEX  II 


.TPl ,PI ,PIOT, DEGRAD, RADDEG , VKHETR , METRVK , GRAV , 
GNUS , GNUF , FTHETR .r UNITS , REV3CL 


REAL  TPl .PI .PIOT.DECRAD. RADDEG, VKMETR, METRVK, GRAV, RHD, GNU, RHOS , 
1  RHOK , GNUS , GNUF ,  FTHETR . PUN  ITS ( 2 ) 


COMMON  /RESPN/'  NRESP  .  IPOINT (1 02 )  .  IMOTK (182  )  .  ITYPE(  1 82 )  . 
2  ILINd82)  ,1SYK(  182) 

LOGICAL  ILIN.ISYM 


COMMON  /S«PSYS/  FIS , AS . SI S . SOS . SDS . HALOS , DEV , PRN  ,  SHFPS . SVPiS , 
2  SMPOS. SHPOS.SHPTYPS, SHI  PS, VARS, CYCLS, TITLES. OPT) ON, LSIS ,LSOS. 
2  LSDS.LKALOS.LDEV.LPRN.LSMPPS .LSMPIS.LSMPOS.LSMPDS.LSHPTYPS, 


2  LSHIPS.LTITLES 
CKAHACTER*160  AS 

CHARACTER»30  FIS , SIS , SOS ,SD3 .TITLES 

CH ARAC  rER*l’0  HALOS  ,  DEV  ,  PRN  .  SHPPS  ,  SMPIS ,  SHPOS  ,  SMPDS ,  SEPTYPS 
CHARACTER  SHIPS+6 , V ARS*? , CYCLS*2 
1NTEGER*2  OPTION 

COMMON  /STATE/  LAT . VRT . LOADS , ADDRES . SALT .HEAD . EXROLL , BKEEL 
LOGICAL  LAT ,  VF.T  , LOADS  ,  ADDRES  , SALT  .  HEAD  .  ENROLL,  BKEEL 

DIMENSION  WEVN(ICO) ,SPINDX(S).T0IKDX(9) .DATA (432) , AOHGE ( SO . 1 3) , 
2  R(30) .RA01(30.3,1?) ,RA02(30,8.11) , KREC ( x3 ) , B2( 3fc) 

INTEGER  DELBET 
LOGICAL  LINEAR, SYMMET 
DIMENSION  XI'uOll) 

EQUIVALENCE  (NRESP.XID) 

NiD  =  911 
NWEVN  =  ICO 

CALL  UEDEFN  (NWEVN .WEVN ) 

DELBET  =  15 
NLCH  =  11 

CALL  SCB2  (DELBET, BE. PI, NLCH) 

NPLANE  =  2 
NSPIND  =  NVK  +  1 
NTOIND  =  NTKOD  +  1 

FIS  =  SDS(1:LSDS)//’ .RMS’ 

OPEN  (UNIT=RMSFIL.riLE=FIS.STATnS= ’UNKNOWN"  . 

2  ACCESS= ’DIRECT’ ,RECL^ 1750) 

FIS  =  SDS(1  :LSDS)/,/ ’  .  CRG  ’ 

OPEN  (Ur;iT=ORC.FIL,FILE-FIS,FORM=  UNFORMATTED  ’  .  STA'n!S=  ’UNKNOWN  ’  ) 

FIS  =  SDS(1:LSDS)// ’ .LCO’ 

IF  (LOADS) 

2  OPEN  (UNIT=LCOFIL.FILE=FIS .FORM- ’UNFORMATTED ’ .STATXtS= ’UNKNOWN ’ ) 

*  modified  to  run  on  VAX/VMS 

•  CDC  CALL  WRITMS  (RMSFIL . XID  .  NIL' .  1 ) 

WRITE  (RMSFIL, REC=1)  ( XID ( I ) . 1= 1 . 432) 

WRITE  (RMSFIL, REC=2)  ( XID ( I )  .  1  =  433 . 796 ) , NID 
WRITE  (RMSFIL ,REC=3)  ( XID ( I )  ,  1  =  797 , 91 1 ) 

NRECD  =  5 

DO  60  IR=1.NRESP 
LIK.EAR  =  ILIN(IR) 

SYMME"  =  ISYH(IR) 

NPREDH  =  13 

IF  (.’-QT.  SYMMET)  NPREDH  =  24 
.lA  =  1 

IF  (.NOT.  LINEAR)  JA  =  5 
N  =  1 

IF  (.NOT.  LINEAR)  N  =  NRANG 
IF  (LOADS)  REWIND  LCOFIL 
REWIND  ORGFIL 

READ  (ORGFIL)  TITLE , NVK  , KHU , NOMEG A , OMEGA , NRANG , RLANG , VRT , LAT , 

2  ADDRES , LPP .BEAM .DRAFT , DISPLM , GH , DELGM . KG , KROLL , LCB . GKAV , RHO , 

2  VKDES.VKINC.DBLWL 

♦  define  2-pareimeter  ( f  ignif  leant  wave  height,  modal  wave  period) 

*  Bretschneider  sea  spectra,  for  unit  significant  wave  height 

DO  500  IT=1.NTM0D 

CALL  BRWVSP  ( KOKEGA , 1 .  , TMODAL( IT ) , OMEG A , S ( 1 . IT) ) 

500  CONTINUE 


IPHS  =  0 

NDATA  =  (2  +  N*2)*hT'KEDF 


modified  for  VAX/VMS 


♦  CDC 

♦  CDC 
C--  CDC 

♦  CDC 


2 

15 


CDC 

CDC 

CDC 

CDC 


2 


2 


CDC 


40 

*  CDC 

♦  CDC 

50 

•  CDC 


CDC 

60 


C  DECK 


2 


1 


CALL  STIKDX  (RMSFIL»SPINDX,NSFIHD) 
DO  10  1-1 .NSPIND 
SPIHDX(I)  =  C. 

10  CONTIKUE 


DO  60  IV=1,NVK 
HMU  =  NNMU(IV) 

NLCH  =  NMU  -  2 
N1  =  NMU/2  "  1 
N2  =  KMU/2  +  1 
HBETA  =  2*(MMU“1) 

DO  IS  IH^l.SMU 
KH  =  IH  -  1 
IF  (IH  .EQ,  1)  KH  =  1 
IF  (IH  .EO.  13)  KR  =  11 

CALL  HAOPHS  (AOMGEC 1 . IH ) ,RA01 ( 1 , 1 . IH) .DUM, RA02( 1 . 1 ,KH) ,DUM . 
KREC(IH) .IR.IV.IH.IPHS) 

CONTINUE 

modified  for  VAX/VMS 
CALL  STINDX  (RMSFIL,TOINDX,KTOIND) 

DO  20  I=1,NV0IND 
TOIKDX(I)  =  0. 

20  CONTINUE 


DO  40  IT^1,NTM0D 

CALL  RMS  (KREC,RA01,RA02,1T.N,R,B2,NPREDH»NLCH.N1,N2,DATA, 
IMOTN(IR) .NBETA) 


CALL  TOE  (KREC,A0KJE.RA01,RA02, JA,IT,H,B2,NPREDH, 
NLCH.N1,N2, NBETA. DELBET.NWEVN.WEVN.lv. DATA) 


modified  for  VAX/VMS 

C  T»  TN  *  T*  I 


•  T  i 

.  n  1  A 


T-tN 

»  I  / 


NRECD  =  NRF.CD  +  1 

WRITE  (RMSFIL,REC=NRECD)  DATA 

CONTINUE 


CALL  STINDX  ( RKSFIL , SPINDX , NSPIND) 
CALI.  WRITKS  (RKSFIL, TOINDX.NTCIND, IV) 

CONTINUE 


CALL  STINDX  (RKSFIL . RMIDX , LRKIDX) 
KR  =  IR  +  1 


CALL  WRITKS  ( RKSFIL , SPINDX , NSPIND ,KR) 
CONTINUE 

CLOSE  (UNIT=RHSFIL) 

CLOSE  (UNIT=0RGF1L) 

IF  (LOADS)  CLOSE  (UNIT=LCOFtL) 

RETURN 

END 


RPKI2D 

SUBROUTINE  RPHI2D  (K.PH12D) 

COKKON  /CH3D/  ISIGKA . SICKTN . SIGHAX , V , SINKU , COSHU , WTSl . 

IHMIN . IHKAX. IMDEL.LKIN ,LMAX 

REAL  SIGMIN , SIGHAX ,V. SINKU, C0SKU,WTSI(4) 

INTEGER  ISIGKA,IHK1N,1KMAX ,IHDEL,LKIN ,LMAX 


COKKON  /ENVIOR/  VK , NVK . HU . NKU . OKEGA , NOHEGA , SIGKA , NSIGHA , SIGWH , 
NSIGWH ,TKODAL,NTKOU,NRANG,RANG,RLANG,S,NNHU,FRNUM,VFS 
INTEGER  NVK. NKU, NOHEGA, N5IGMA,NSIGWH,NTM0D,NRANG,NNHU(0) 
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RcAL  VK(8) .KU(37,8) ,OKEGA(30) ,S1GMA( 10) ,SIGWH(4) ,TM0DAL(8) . 

2  RA»IG(8)  ,RLANG(8),S(30,8)  ,FRNUM(8)  ,VFS(8) 

COMMOH  /GEOM/  X , HSTATH  .  Y , 7 , rqfsET ,LPP , BEAK .DRAFT , LCF , 

1  VCG .  GK  ,  DE:.GM  ,  NEBlA  .  KPITCH  ,  KROLL  ,KYAW  , KYAWRL ,  AWP  ,  VCB  , FBDX , FBDY , 

2  FBDZ , NFREBD , XPT , YPT , ZPT , HPTS . LCB , GKL , ASTAT . BSTAT , TITLE , M ASS , 

2  DISPLM.lPITCH.IROLL.IYAW.IYAWRL.CHEAVE.CPITCH.CHEAPl.CROLL, 

2  AREAMX.WSUW^, GIRTH, FBDZV.DBLWL.TLCB 

INTEGER  NSTATH . N0FSET(25) , NFREBD . SPTS 
CHARACTER*4  TITLE(20) 

REAL  X(2S) ,Y( 10, 26) .2(10,25) ,FDDZV(8 . 10) , LPP .BEAM .DBLWL .TLCB . 

2  DRAFT, LCF, VCG, GM.DELGM, NEBLA, KPITCH, KROLL, KYAU, KYAWRL. AWP. VCB. 
2  FBDX(10),FBDY(10) .FBDZ(IO) .XPT(IO) ,YPT(10) .ZPT(IO) ,LCB,GHL. 

4  A3TAT(26) .BSTAT(26) .MASS,DISPLM,IPITCH,IROLL,IYAW. 

6  lYAWRL . CEEAVE , CPITCH , CHEAPI , CROLL , AREAMX , WSURF , GIRTH (26) 

COKKON  /INDEX/  PFIDX , LPFIDX , RMIDX .LRMIDX, SVIDX , LSVIDX 

INTEGER  LPFIDX, LRHIDX, LSVIDX 

REAL  PFIDX(236) .RHIDX(183) .SVIDX(3) 

COMMON  /lO/  SYSFIL.POTFIL.COFFIL.LCOFIL.ICARD.TEXFIL.IPRIN, 

2  SCRFIL,HPLFIL,.!.RAFIL,ORGFIL,RACFIL,RMSFIL.SEVFIL,SPDFIL. 

2  SPTFIL.LACFIL.LAEFIL 

INTEGER  SYSFIL . POTFIL, COFFIL .LCOFIL , ICARD .TEXFIL . IPRIN , 

2  SCRFIL , HPLFIL , LRAFIL . ORGFIL . RAOFIL . RMSFIL . SEVFIL , SPDFIL , 

2  SPTFIL.LACFIL.LAEFIL 

COMMON  /STATE/  LAT , VRT , LOADS , ADDRES , SALT . HEAD , EXROLL , BKEEL 
LOGICAL  LAT , VRT , LOADS  .  ADDRES , SALT . HEAD . EXROLL , BKEEL 

COMPLEX  PHI2D(10,10,4) 

REAL  DATA(320) 

NNCDE  =  HOFSET(K) 

KDATP  =  0 

IF  (VRT)  NOATP  =  l«*NNOnF 

IF  (LAT)  NDATP  =  NDATP  +  16*NN0DE 

ISIGMX  =  NSIGMA  -  1 

DO  30  ISICMA=1 .ISIGMX 

INDEX  =  riSIGMA-D^NSTATN  +  K 

*  modified  for  VAX/VMS 

*  CDC  CALL  READMS  (POTFIL, DATA .NDATP, INDEX) 

READ  (POTFIL, REC=INDEX)  DATA 

NEaT  “  1 

DO  20  J=1,NN0DE 

DO  10  I=IMMIN,IMMAX,1MDEL 

PHI2D(ISIGMA. J.I)  =  CMPLX(DATA(NEXT) ,DATA(NEXT+1)) 

IF  (ISIGMA  .EQ.  ISIGMX)  PHI2D(NSIGHA , J . I )  = 

2  CMPLX(DATA(NEXT+4) ,DATA(NEXT+B) ) 

NEXT  =  NEXT  +  8 
10  CONTINUE 
20  CONTINUE 
’0  CONTINUE 

RETURN 

END 

C  DECK  RSOLVE 

'subroutine  RSOLVE(  N,  NDIM.  A.  B.  IP  ) 

*  Bolution  Oi  linear  system,  A+X  =  B  . 

*  INPUT... 

*  N  =  order  of  matrix. 

*  HDIM  =  declared  dimension  of  array  A  . 

*  A  =  triangular ized  matrix  obtained  from  "DECOMP"  . 

*  B  =  right  hand  vector. 

*  IP  =  pBvOT  vectoi*  obtained  from  "DECOMP". 

*  do  not  use  solve  if  DECOMP  has  set  IP(N)  =  0  . 
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*  OUTPUT . . , 

•  B  =  solution  vector,  X  . 

REAL  A.  B,  T 

I8TEGER  H.  HDIM,  IP,  I.  K,  KB,  KMl,  KPl,  M,  HMl 
DIMEnSIOR  A(N{}IM,RDIH),  B(IDIM) 

DIMEHSIOH  IP(KDIM) 

IF  (H  .EQ.  1)  GO  TO  1600 
HMl  =  N  -  1 
DO  1200  K  =  1.  HMl 
KPl  =  K  +  1 
H  -  IP(K) 

T  =  B(H) 

B(M)  =  B(K) 

B(K)  e  T 

DO  1100  I  =  KPl,  R 
B(I)  =  B(l)  +  A(I.K)*T 
1100  CONTINUE 
3.200  CONTINUE 

DO  1400  KB  =  1,  HMl 
KMl  =  H  -  KB 
K  =  KMl  1 
B(K)  =  B(K)/A(K,K) 

T  =  -B(K) 

DO  1300  I  -  1,  KMl 
B(I)  =  B(I)  +  A(I,K)*'r 
1300  CONTINUE 
1400  CONTINUE 
1600  CONTINUE 

B(l)  =  B(l)/A(l,l) 

99999  CONTINUE 

RETURN 

END 

C  DECK  RSTITL 

SUBROUTINE  RSTITL  (IP,IM,IT,RTITL,RTYPE,RUKIT,PARS) 

COMMON  /DATINP/  OPTN .MOTN ,BSCFII., VLACPR ,RAOPR,RLDMPR,DISPLMT, 

2  LRAOPR,ADRPR,ORGOPTN,GMNCM,KG,STA7K(2B) ,NS0F'ST(26) , 

2  NLEWF(25),HLFBTH(10,25) , WTRLNEC 10 , 26 ) ,BLEWF(26) ,TLEWF(26) , 

2  AREALF(25) , NPTLOC , PTNUMB (10) , PTNAHE , XPTLOC ( 10) ,YPTL0C(10) , 

2  ZPTLOC(lO) ,NBB,FBKUMB(10) , FBNAME , XPTFBD ( 10 ) ,YPTFBD(10) , 

2  ZPTFED(lO) ,FBC0DE(10) ,FBTYPE , RDOT( 10) ,VKDES .FNDES , 

2  STATNM,STATIS 

CHARACTER*4  PTNAME(8,10) ,FBNAME(8 , 10) .STATNM(5) , FBTYPE(3 , 10) 

I NTEGER  OPTN , MOTN , BSCFIL , VLACPR , RAOPR , ADRPR , RLDMPR , FBCODE , 

2  FBNUKE, PTNUMB, ORGCPTN 
REAL  KG 

COMMON  /LOADS/  NLOADS ,SWGHT(25) , SMASS (25) , XLDSTN( 10) , XLDXPT(26 ) , 
2  LSTATN(2E) 

COMMON  /PHYSCO/  II,TPI,PI,PIOT, DEGRAD , RADDEG , VKMETR , METRVK , GRA V , 
2  P.HO, GNU, RUOS,RHOr, GNUS, GNi"^,FTMETH,PUNIT5,REYSCI, 

COMPLEX  II 

CHARACTER*4  PUNITS(2) 

REAL  TPI ,PI ,PIOT, DEGRAD, RADDEG, VKMETR, METRVK, GRAY, RHO, GNU, RHOS, 

1  hHOF,CNUS,GNUK,FTMETK 

CHARACTER*3  PT(lO) ,TT(3) .PPM(3) ,RLT(2) 

CHARACTER*4  METER , MUN1T( 3 , 7 ) , PNTM0T(2 , 3 ) ,LOAD( 2 , 6 ) 

CHARACTER*4  LTYPK(3,2) ,LUNIT(3,3) ,TYPE(3,6) ,RELM0T(2) 
CHARACTER*4  ADRES{2) . ADRTYPO) ,UNIT(3,7) ,RUN1T(3) 

CHARACTER*4  RTITL(2) ,RTYPE(3) ,HFEM0T(2) 

CHARACTER*6  PPLM( 3 ) , TTLM ( 3) ,HFEM,HHFEH 
CHARACTER*6  ORGMOT(2,6) 

CHARACTER*10  OMOT(3,6) ,FM0T(3) 

CHARACTER+110  PARS 


]  'J'J 


DATA  METER  /’METE’/ 


DATA  MUHIT  /’ 

(M’ , *ETER» , *S) 

’.’(MET’, 

(DE’. 

’ERS/’ 

’SEC)’,’ 

2  ’(G)  ’, ’ 

(^'DEG)^' 

’G/SE’ 

•C)  ’,’(DEG’ 

2  ’/SEC’ , ’2)  ’ , ’ 

(’.'LBSr,' 

’/ 

■LATE. ■ , 'VERT. ’/ 


■ACC. 

’  ’F6' 


•/ 


■pe ’  'P7 ' 


■PS’ 


DATA  PPLM  /’LONG 
DATA  HFEM  /’HOR’/ 

DATA  HHFEM  /‘HORZ. ’/ 

DATA  TTLM  / ’DISP .  ’  , 'VEL. 

DATA  PT  /’PI’ , ’P2’ . ’P3’ . ’P4 
DATA  TT  /'DSP’ , ’VEL’ , 'ACC'/ 

DATA  PPM  /’LOH’ . ’LAT', ’VER'/ 

DATA  OKOT  /’SURGE’ , ’SURVEL’ , ’SURACC’ . ’SVAY' . ’SUAVEL 
’HEAVE’ , ’HEAVEL’ , ’HEAACC’ . ’ROLL’ , ’ROLVfA  , ’ROLACC’ , 
PITVEL’ . ’PITACC’ , ’YAW’ . ’YAWVEL' , ’YAWACC’/ 


P9’ , ’PIO’/ 


.  ’SWAACC’ 
PITCH’  . 


’  SWAV 


H’  , ’EAVE’ 


DATA  ORGMOT  /  ’  S’, ’URGE’  ,  ’ 

’ROLL', ’  P’ , ’ITCH' , ’  ’ . ■  YAW’/ 

DATA  PNTMOT  /’  LOH’ , ’GIT. ’ , ’  LAT’ , ’ERAL’ , ’VERT’ , ’ICAL’/ 
DATA  HFEHOT  /’  HOR’ . ’IZ.  ’/ 

DATA  FHOT  / ’FIHANG  ’  . 'FIHVEL ’ , 'FINACC ’ / 


’HEAR’ , 
.  ’/ 

I  C  1 

!  ’OHS) 


V.S’ . ’HEAR’ 


’HOME’, ’NT  ’,’ 

’  (H-’ , ’TONS’ ,’ ) 


’MOTI ' 


'ON 


DATA  LOAD  /’  H.S 
2  ’END. ’ , ’  H.B’ , ’END 
DATA  LTYPE  /’FORC’ 

DATA  LUNIT  /’  (T’ 

2  ’-TON’ , ’S)  ’/ 

DATA  TYPE  /’DISP’ , ’LACE’ . ’KENT’ , ’VELO’ . ’CITY’ , ’ 
2  ’LERA’, 'TION’ . ’ANGL’ , 'E 
DATA  RLT  / ’ RLM ’ , ’ RLV ’ / 

DATA  RELMOT  / ’RELA ’ , ’TIVE’ / 

DATA  ADRES  /’  A',’DDED’/ 

DATA  ADRTYP  /’RESI  ’ . 'STAN' , ’CE 
DATA  UNIT  /’  (F’ . ’EET) ’ , ’ 

2  ’ (G)  ’ , ’  ’ , ’  ( ’ , ’DEG) ’ , ’ 

2  ’/SEC’ , ’2)  ’ , ’  ( ’ , ’LBS)  ’ ,  ’ 

RUNIT(l)  =  UNITfl ,IT) 

RUNIT(2)  =  UKIT(2,IT) 

RUNIT(3)  “  UNITO.IT) 


ORS. 


V.B’ 


(FT’ 


’ , ’ACCE' , 
'/ 


/ 

(FEE’ . ’T/SE’ , ’C) 
’.’  (DE’,’G/SE’, 
’/ 


C) 


’  (DEG’ 


IF 

(PUNITSC: 

1)  ,EQ.  METER) 

RUNIT( 

=  MUNJTC 

IF 

(PUNITSC: 

1}  .EQ.  METER) 

RUN IT ( 

!2) 

=  MUNITC 

IF 

(PUNITSC 1)  .EQ.  METER) 

RUNIT(3) 

=  MUNITC 

JT 

=  IT  +  3 

IF 

(IP  .GT. 

0)  GO  TO  20 

IF 

(IM  .GT. 

6)  GO  TO  10 

origin  motions 


=  ORGMOT (1,IM^ 


3000 


(IM.GT.3 
(IK.GT.3 
IM  .GT. 
IM  .GT. 
UH  .GT. 
(PUNITS(1 


RTYPE(l) 

RTYPE(2) 

RTYPEO) 


RTITL(1 

RTITL(2)  =  0RGM0T(2.IM 
RTYPE(l)  =  TYPE(1,IT) 

RTYPE(2)  =  TYPE(2,IT) 

RTYPE(3)  =  TYPE(3,IT) 

IF  (IM.GT.3  .AND.  IT.EQ.l) 

.AND.  IT.EQ.l) 

.AND.  IT.EQ.l) 

3)  RUNIT(l)  ^  UNIT{1,JT) 

3)  RUNIT(2)  =  UNIT{2,JT) 

3)  RUNITCa)  =  UNIT(3.JT) 
.EQ.  METER  .AND.  IM  .GT. 
(PUNITS(l)  .EQ.  METER  AND.  IM  . GT . 
_  (PUNITSCl)  .EQ.  METER  .AND.  IM  . OT . 
WRITE  (PARS, 5000)  (0M0T( IT , IM ) , J=1 , 2) 
FORMAT  (A10,10X,A10,80X) 

GO  TO  60 


TYPE( 

TYPE( 

TyPE( 


3)  RUNIT(l)  MUNIT(1,JT) 
3)  RUNIT(2)  =  MUNIT(2,JT) 
3)  RUH1T(3)  -  KUNITO.JT) 


10  IF  (IM  .HE.  7)  GO  TO  30 


*  added  resistance 

RTITL(l)  =  ADRES(l) 
RTITL(2)  =  ADRES(2) 
RTYPE(l)  =  ADRTYP(l) 
RTYPE(2)  =  ADRTYP(2) 
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RTYPE(o;  =  ADRTYPO) 

RUIIT(l)  =  UHIT(1.7) 

RUHIT(2)  =  UHIT(2,7) 

RUHITO)  =  UHIT(3.7) 

GO  TO  50 

20  IF  (IM  .GT.  3)  GO  TO  30 

*  notions  at  a  point 

RTITL(l)  =  PIITMOT(l.IM) 
nTITL(2)  =  P»TM0T(2,IM) 

RTYPE(l)  =  TYPE(1,IT) 

RTYPE(2)  =  TYPE(2,IT) 

RTYPE(3)  =  TYPE(3,IT) 

WRITE  (PARS. 3010)  PPM(IM) .TT(IT) ,PT(IP) ,PPLM(IM) ,TTLM(IT) , 

2  XPTLOC(IP),YPTLOC(IP),ZPTLac(IP) 

3010  FORMAT  (3A3 , 1 IX . A5 . IX , A5,4X , 2HAT,4X , 5HXFP  =,F6.2,3X,5HYCL  =, 
2  F7.2,3X.6HZBL  =.F7.2.28X) 

GO  TO  60 

30  IF  (IM  .HE.  8)  GO  TO  50 

*  relativs  notion 

RTITL(l)  =  RELMOT(l) 

RTITL(2)  =  RELM0T(2) 

RTYPE(l)  =  TYPE(l.IT) 

RTV?E(2)  =  TYPE(2,IT) 

RTYPE(3)  =  TYPE(3,IT) 

IF  (IT  .EQ.  1)  RTYPE(l)  =  TYPE(1,5) 

IF  (IT  .EQ.  1)  RTYPE(2)  =  TYPE(2.B) 

IF  (IT  .EQ.  1)  RTYPE(3)  =  TYPE(3.5) 

WRITE  (PARS, 3020)  RLT(IT) .PT(IP) ,RTITL.RTYPE,XPTFBD(IP) , 

2  YPTFBD(IP)  .ZPTFBDdP) 

3020  FORMAT  (2A3 , 14X ,2A4  .  IX  .  3A4 , 2HAT,4X .5BXFP  =.F6.2,3X,5HYCL  =, 
2  F7 .2,3X,&H2BL  =,K7.2,22X) 

60  IF  (IM  .HE.  0)  GO  TO  72 

*  sinti-roil  iins 

RTITL(l)  =  ’ 

RTITL(2)  =  ’  FlI’ 

IF  (IT  .EQ.  1)  JT  =  4 

IF  (IT  .GT.  1)  JT  =  IT 

DO  60  1=1.3 

60  RTYPE(I)  =  TYPEd.JT) 

JT  =  IT  +  3 
DO  70  1=1,3 

70  RUHITd)  =  UNITd.JT) 

WRITE  (PARS. 3000)  FMOT(IT) .FMOT(IT) 

72  IF  (IM  .HP  15)  GO  TO  80 
RTITL(l)  =  HFEMOT(l) 

RTIILCZ)  =  HFEM0T(2) 

RTYPE(i)  =  TYPE(1,3) 

RTYPE(2)  =  TYPE(2.3) 

RrYFE(3)  =  TYPE(3,3) 

RUNIT(l)  =  UNIT(1,3) 

RUNITd)  =  UNIT(2.3) 

RUHITd)  =  UNIT(3.3) 

WRITE  (PARS. 3010)  KFEM,TT(3)  .ddF)  ,HHFEM,TTLM(3)  , 

2  XPTLOCdP)  .YPTLOCdP)  ,ZPTL0C(1P) 

80  IF  (.HOT.  (IP.GT.O. AHD. (IM.GE.IO.AHD.IM.LE. 14)))  GO  TO  100 

*  loads 

JM  -  IH  ~  9 
RTITL(l)  =  L0AD(1,JM) 

RTITL(2)  =  L0AD(2,JM) 
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82 


3031 

3032 

3033 

3034 
303B 

100 


LT  =  1 

IF  (IM  .GT.  11)  LT  -  7 
MT  =  LT 


IF  (LT.EQ.2.AHD.(PUNITS(1) .KE. METER))  MT  =  3 
DO  82  1=1,3 

RTYPEpj  =  LTYPE(I,LT) 


RUKIT 
CONTINUE 


LUNIT(I,MT) 


IF 

IF 

IF 

IF 

IF 


JM 

JM 

JM 

JM 

!jk 


.EQ. 

.EQ. 

-EQ. 

.EQ. 

.EQ. 


a! 


1)  WRITE  (PARS, 3031) 

2)  WRITE  (PARS, 3032) 

3)  WRITE  (PARS, 3033) 

WRITE  (PARS, 3034) 

WRITE  (PARS, 3038) 

F0RMAT(6HHSHEAR,A3, 11X,2SHH0RI2. 
F0RMAT(6HVSHEAR,A3,11X,29HVERT. 
FORHAT(4HTHOM,  A3 , 13X ,29HT0RSI0HAL  MOMENT 
FORMAT(4HVMOM,  A3 , 13X , 29HVERT.  BEND.  MOM. 
F0RMAT(4HHMOK,  A3 , 13X , 29HH0RIZ .  BEND.  MOM. 
CONTINUE 


,XLDSTN( 

,XLDSTN( 

,XLDSTN( 

) ,XLDSTM( 

) ,XLDSTN( 

SHEAR  FORCE  AT  STATION, F6. 2, 5SX) 
SHEAR  FORCE  AT  STATION, /6. 2, 55X) 
AT  STATION, F6. 2, 55X) 
AT  STATION, F6. 2, 55X) 
AT  STATION, Fe. 2, 55X) 


RETURN 

END 


C  DECK  RVSLAT 

SUBROUTINE  RVSLAT  (VCG ,MCTLG ,MOTL) 

COMPLEX  M0TLG(3) ,M0TL(3) 

MOTL(l)  =  MOTLG(l)  +  VCG*M0TLG(2) 
K0TL(2)  =  M0TLG(2) 

M0TL(3)  =  M0TLG(3) 

RETURN 

END 


C  DECK  SBEDDY 

SUBROUTINE  SBEDDY 

COMMON  /APPEND/  NBKSET.NBKSTN(2) ,BKIMAG(2) ,BKFS(2) .BKAS(2) , 

2  BKWD(2) .BKSTN(10,2) ,BKHB(10 , 2) . BKLNTH . BKWDTH , 

2  BKWL(10,2) ,BKAN(10,2) ,NSKSET,SKIMAG(2) ,SKFI,S(2) ,SKALS(2) , 

2  SKAUS(2) ,SKHB(2),SKFLUL(2) ,SKALWL(2)  ,SKAUWL(2) ,NRDSET,RDIMAG(2) , 

2  RDRFS(2) ,RDRAS(2),RDRHB(2) .RDRFWL(2) .RDRAWL(2) .RDTFS(2) .RDTAS(2) . 
2  RDTHB(2),RDTFWL(2),RDTAWL(2),NSBSET,SB:MAG(2) ,S0BRFS(2) ,S0BRAS(2) 
2,S0BRHB(2) ,S0BRFW(2) ,S0BRAW(2) .3IBRFSi2) ,SIBRAS(2) .SIBRHB(2) , 

2  SI3RFW(2) ,SIBRAW(2) ,SBTFS(2) ,SBTAS(2) ,SBrHB(2) .SBTFWL(2) , 

2  SBTAWL(2) ,NFNSET,FNIMAG(2) ,FNRFS(2) ,FNRAS(2)  , 

2  FNRHB(2) ,FNRFWL(2) ,FNRAWL(2) .FNTFS(2) ,FNTAS(2) ,FKTHB(2) , 

2  FKTFWL(2) ,FNTAWL(2) ,NEXPRD,ENRD0(8) ,ENRDS(8) 

COMMON  /CH3D/  ISIGMA .SIGMIN ,SIGMAX , V ,SINMU ,COSMU , WTSI , 

2  IMMIN,IMMAX,IMDEL,LMIN,LMAX 

REAL  SIGMIN, SIGMAX,V,SINMU,COSMU, WTSI (4) 

INTEGER  ISIGMA, IMMIN,IMMAX,IflDEL,LMIH,LMAX 

COMMON  /ENVIOR/  VK , NVK , MU ,NMU .OMEGA .NOMEGA .SIGMA .NSIGMA , SIGWH , 

1  NSIGWH .TMODAL , NTMOD , NRANG , RANG , RLANG , S , NNMU , FRNUM , VFS 
INTEGER  NVK, NMU, NOMEGA. NSIGMA, NSIGWH, NTMOD, NRANG, NNMU (8) 

REAL  VK(8) ,MU(37,8) ,0MEGA(30) .SIGMA(IO) ,SIGWH(4)  ,TM0DAL(8) , 

2  RANG(8) ,RLANG(8) ,5(30,8) .FRNUM(8) .VFS(8) 

COMMON  /PHYSCO/  II .TPI , PI .PIOT.DEGRAD . RADDEG , VKMETR, METRVK ,GRAV . 
2  RHO . GNU , RHOS , RHOF , GNUS , GNUF . FTMETR .PUNITS . REYSCL 
COMPLEX  II 

CHARACTER*4  PUNITS(2) 

REAL  TPI. PI .PIOT.DEGRAD, RADDEG, VKMETR, METRVK, GRAV, RHO. GNU, RHOS, 

1  RHOF, GNUS, GNUF, FTMETR 

COMMON  /RLDBK/  PSUR(25) .BMK(25) ,DK(26) , CAK(25) , HQ .HSPAN . HMNCHD , 

2  HAREA,11XCP,HYCP,HZCP.KGAMMA,HYHAT,HEAR,HLCS,RQ(2) .RSPAN(2) . 

2  RMNCHD(2) ,RAREA(2) .RXCP(2) ,RYCP(2) ,RZCP(2) ,RGAMMA(2) ,RYHAT(2) , 
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2  REARp)  .RLCS(2)  ,SQ(2)  .SSPAII(2)  ,SMNCHtK2)  .  SAREA(2)  ,SXCP(2) . 

2  SYCP(2),S2CP(2),SGAMMA(2) .SYHAT(2),SEAR(2),SLCS(2),BQ(2) . 

2  BSPAH(2) ,BMHCHD(2) ,BAREA(2) ,BXCP(2) ,BYCP(2) ,BZCP(2) .BGAMMA(2) , 

2  BYHAT(2) ,BEAR(2) ,BLCS(2) ,Fq(2) ,FSPAN(2) .F«NCflD(2) ,FAREA(2) . 

2  FXCP(2),FYCP(2; ,FZCP(2) ,FGAMMA(2) ,FYHAT(2) ,FEAR(2) ,FLCS(2) , 

2  Pq(2,2),PSPAlK2,2) ,PMNCHD(2.2),PAREA(2.2),PXCP(2,2),PYCP(2,2), 

2  PZCP(2.2),PGAMMA(2,2).PYHAT(2,2) ,PEAR(2 ,2) ,PLCS(2,25 , 

2  STADMP(IO) ,SHPDMP(l0.8),ENC0Ii.WPHI,TPHI,WMELM(4,9),SFELM(4,9,8) , 

2  REELM(4,9,8) ,PEELM(4.9,8) .FEELM(4,9.8) ,HEELM(4 , 9 . 8) . BEELM(4 , 9 , 8) , 
2  EBWM,EHSF(8,8),EHRE(8),ENPE(8).ENFE(8) .ENHE(8) , ENBE(8) . 

2  EHEI1V(8.8).EHRL(8).ENPL(8)  .EHFL(8)  ,EltHL(8)  ,ENSL(8)  .ENBL(8) , 

2  EHSHF(8.8) ,RELM(4,9) ,ITS(2B) ,RD(25) ,EDDY(8,26) .RGB(26) 

REAL  RDBLKC2P92) 

EQUI VALENCE  ^PSUR(1) ,RDBLK(1)) 

DO  20  IA=l,rRAHG 
ENPEdA)  =  f. 

DO  10  1S=1,’. SIGMA 
SHPDMPdS.j  A)  =  0 
10  CONTINUE 
20  CONTINUE 

IF  (NSBSE'i  .EO.  0)  GO  TO  100 
DO  60  K=1,IISBSET 
DO  EO  L=l,2 

IF  (L.Eq.2  .AND.  SBTHB(K) . EO . 0.  )  GO  TO  50 
YHAT  =  EqRT(PYCP(K.L)**2  +  P2CP(K,L)**2) 

GAMMAE  =  PGAMMA(K,L)  +  1. 

ALF  =  ..TAK(  ABS(  ( ( PYCP(K, L) /PZCP(K .L) )  +  TAN (GAHMAE*DEGRAD) )  / 

2  (1.  -  (PYCP(K,L)/PZCP(K,L))*TAN(GAMMAE*DEGRAD))  )  ) 

C  =  0.0066  ♦  (PLCS(K,L)**2)/(0.9*PI*PEAR(K,L)) 

CON  =  Pq(K,L)*4./(3.*PI)*RH0*YHAT**3  •  PAREA (K , L)*C*SIN ( ALF) 

DO  40  IA=1,NRANG 
DO  30  IS=1.NSIGMA 

SHPDMP(IS.IA)  =  SBPDMPdS.IA)  v  (CON+SIGMA(IS)*RANG(IA) )  * 

2  SIGMA(IS) 

30  CONTINUE 
40  CONTINUE 

£0  continue 
60  continue 

DO  70  IA=1,NRANG 

CALL  SPFIT  (SIGMA. SHPDMPCl, lA), PEELMCl, 1, lA) .HSIGMA) 

ENPE(IA)  =  ENC0N*REVAL(PEELM(1,ISIGMA,IA) ,WTSI) 

70  continue 
100  CONTINUE 

RETURN 

END 

C  DECK  SBLIFT 

SUBROUTINE  SBLIFT 

COMMON  /APPEND/  NBKSET . NBKSTK (2 ) . BKIMAG (2 ) ,BKFS(2) .BKAS (2 ) , 

2  BKWD(2),BKSTNd0,2)  ,  BKKB(  10 , 2) ,  BKLNTH,  BKWDTH  , 

2  BKWL(iO,2) ,BKAN(10.2) .NSKSET.SKIMAG(2) ,SKFLS(2) .SKALS(2) . 

2  SKAUS(2) ,SKHB(2),SKFLWLf2) ,SKALWL(2) ,SKAUWL(2) . NRDSET . RDIMAG ( 2) , 

2  RDRFS(2),RDRAS(2),RDRHB(2) , RDRFWLC 2) . RDRAWL(2) , RDTFS dl ,RDTAS(2), 
2  RDTHB(2),RDTFWL(2),RDTAWL(2) ,NSBSET.SBIMAG(2) ,S0BRFS(2; ,S0BRAS(2) 
2,S0BRHBd) ,S0BRFW(2) .S0BRAW(2) ,SIBRFS(2) .SIBRAS(2) ,SIBRHB(2) , 

2  SIBRFWC2) ,SIBRAW(2)  , SETFS (2 ) , SaTAS(2) , SBTHB( 2) , SBTFWL(2) , 

2  SBTAWL(2) ,NFNSET,FNIMAG(2)  ,FNRFS(2) ,FNP.AS(2) . 

2  FNRHB(2),FNRFWL(2),FNRAWL(2) ,FNTFS(2) ,FNTAS(2) .FNTHB(2) , 

2  FNTFWL(2),FNTAWL(2) , NEXPRD .ENRDO (8) .ENRDS (8) 

COMMON  /ENVIOR/  VK , NVK , MU , NMU .OMEGA .NOMEGA .SIGMA . NSIGMA . SIGWH , 

1  NSIGWH  .TMODAL ,  NTHOD  .  NRANG  .  RANG ,  RLANG  .  S  ,  NNH'J  .  FRNUM .  VFS 
INTEGER  NVK . NMU . NOMEGA , NSIGMA .NSIGWH . NTMOD .NRANG . NNMU(8 ) 

REAi.  VK(8) .MU(37.8) .0MEGA(30) ,SIGMA(lO) .SIGWH(4) .TM0DAL(8^ . 

2  RANG(8) .RLANG(8) .S(30.8) .FRNUK(8) .VFS(8) 

COMMON  /GEOM/  X . NSTATN . Y . Z . NOFSET . LPP . BEAM .DRAFT . LCF . 

1  VCG .GM.DELGM.NEBLA.KPITCH.KROLL.KYAW.KYAWRL. AWP.VCB.FBDX.FBDY. 

2  FBDZ , NFREBD , XPT . YPT .  ZPT . NPTS . LCB . GML , A3TAT , BSTAT . TITLE , MASS . 
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2  DISPL« , IPITCH , IROU, , IVAW , lYAWRL , CHEAVE , CPITCH, CHEAPI , CROLL . 

2  AREAMX ,HSURF .GIRTH , FBDZV .DBLWL , TLCB 
IKTEGER  HSTATN . NOFSET( 2B ) . KFREBD , HPTS 
CHARACTER*4  TITLE(20) 

REAL  X(26)  ,Y(10.28)  ,Z( 10,25) .FBDZV(8 , 10) , LPP , BEAM , DBLWL , TLCB . 

2  DRAFT, LCF.VCO, CM, DELGM.HEBLA.KPITCH.KRQLL.KYAW.KYAWRL.AWP.VCB, 

2  FBDX(10),FBDY(i0) .FBDZUO) ,XPT(10) .YPT(IO) .ZPTClO) ,LCB,GML, 

4  ASTAT(25) ,BSTAT(25) .MASS .DISPLM , IPITCH . IROLL , IVAW . 

6  lYAWRL, CHEAVE, CPJ.TCH, CHEAPI, CROLL, AREAMX, USURP, GIRTH (25) 

COMMOH  /PHYSCO/  II ,TPI .PI .PIOT, DEGRAD .RADDEG .VKMETR.METRVK .GRAV . 
2  RHO , GKU , RHOS . RHOF , GNUS , GHUF , FTMETR , PUNITS , REYSCL 
COMPLEX  II 

CBARACTER*4  PUKITS(2) 

REAL  TPI , PI . PIOT , DEGRAD , RADDEG , VKMETR , METRVK . GRAV . RHO , GHU , RHOS , 

1  RHOF, GNUS, GHUF, FTMETR 

COMMOH  /RLDBK/  PSUR(25) , BMK(25) , DK(26) . CAK(2S) .HQ ,HSPAH , KMNCHD , 

2  HAREA,HXCP.HYCP,HZCP,HGAMMA.HYHAT,HEAR,HLCS,RQ(2) .RSPAN(2) . 

2  RMNCHD(2) ,RAREA(2) ,RXCP(2) .RYCP(2) ,RZCP(2) ,RGAMMA(2) .RYHAT(2) . 

2  REAR(2),RLCS{2) ,SQ(2 ) .SSPAN(2) , SMHCHD(2) , SAREA(2) , SXCP(2 ) , 

2  SYCP(2),SZCP(2) ,SGAMMA(2) .SYHAT(2) ,SEAR(2) , SLCS(2 ) , BQ(2 ) , 

2  BSPAN(2) .BMNCHD(2) ,BAREA(2) ,BXCP(2) .BYCP(2) .BZCP(2) ,BGAMMA(2) . 

2  BYHAT(2) .BEAR(2) .BLCS(2) ,FQ(2) ,FSPAK(2) ,FMHCHD(2 ) , r AREA (2 ) . 

2  FXCP(2) ,FYCP(2) .FZCP(2) ,FGAMHA(2) ,FYHAT(2) , FEAR(2 ) , FLCS (2 ) . 

2  PQ(2.2),PSPAN(2,2),PMNCHD(2,2) ,PAREA(2 , 2) , PXCP(2 , 2) , PYC? (2 ,2) . 

2  PZCP(2,2),PGAMMA(2.2) ,PYHAT(2 ,2) . PEAR(2 ,2) ,PLCS(2,2) , 

2  STADMP(IO)  ,SHPDMP(10,8) ,ENCOH,WPHI ,TPHI ,WMELM(4 , 9) , SFELM(4 ,9,8), 
2  REELM(4,9,8) .PEELM(4 ,9 . 8 ) ,FEELM(4 , 9 , 8) ,HEELM(4,9 ,8) . BEELM (4 , 9 , 8) 
2  ENWM.EHSF(8,8) ,ENRE(8) .ENPE(8) .ENFE(8) ,ENHE(8) .ENBE(8) . 

2  ENEMV(8.8)  ,ENRL(8) , ENPL(8) , ENFL(8) ,ENHL(8) . ENSL(8 ) . ENBL(8) , 

2  ENSHP(8,8) .RELM(4.9) .ITS(25) .RD(2S) ,EDDY(8,25),RGB(25) 

REAL  RDBLK(2692) 

EQUIVALENCE  (PSUR( 1 ) , RDBLK ( 1 ) ) 

REAL  LCS.MCBORD 

IF  (NSBSET  .EQ.  0)  GO  TO  60 
EN  =  0 

STASPC  =  LPP/20 
DO  60  K=1,HSBSET 
DO  40  L=l,2 

IF  (L.EQ.2  .AND.  SBTHB(K ) . EQ . 0 . )  GO  TO  40 
IF  (L  .EQ.  2)  GO  TO  20 

*  outer  brackets 

XRTF  =  LCB  -  SOBRFS(K)*STASPC 
XRTA  =  LCB  -  S0BRAS(K)*SrA3PC 
XTPF  =  LCB  -  SBTFS(K)»STASPC 
XTPA  =  LCB  -  SBTAS(K)*STASPC 
YRT  =  SOBRHB(K) 

YTP  =  SBTHB(K) 

ZRT  =  (SOBRFW(K)  +  S0BRAW(K))/2  -  (DBLWL+VCG) 

ZTP  -  (SBTFUL(K)  +  SBTAWL(K))/2  -  (DBLWL+VCG) 

GO  TO  30 

♦  inner  bracket 

20  XRTF  =  I.CB  -  SIBRFS(K) ♦STASPC 
XRTA  =  LCB  -  SIBRAS(K)»STASPC 
YRT  -  SIBRHB(K) 

ZRT  =  (SIBRrW(K)  +  SIBRAU(K))/2  -  (DBLWL+VCG) 

30  CONTINUE 

RCHORD  =  XRTF  -  XRTA 
TCHORD  =  XTPF  -  XTPA 

SPAN  =  SQRT((ZRT-ZTP)**2  +  (YTP-YRT) ••2) 

Q  =  2 

MCHORD  =  O.B*((XRTF-XRTA)  +  (XTPF-XTPA)) 


•  area 
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AREA  -  SPAI*MCHORD 

•  center  of  pressure 

ZP  -  0.6*(ZRT+ZTP) 

YP  =  0.6*(YRT  t  YTP) 

XO  =  O.BeaRTF  +  XTPF) 

XCP  =  XO  -  0.25*MCHORD 
YCP  =  YP 
ZCP  =  ZP 

e  moment  &rm 

ARC  =  (ZRT-ZTP)  /  SPAN 
GAMMA  =  -  90 

IF  (ARC  .LT.  1)  GAMMA  =  -  ASIH(ARG)*RADDEG 

IF  (L  .EQ.  1)  GAMMA  =  -  GAMMA 

GAM  =  GAMMA*DEGRAD 

YHAT  =  YCP*COS(GAM)  +  ZCP*SIN(GAM) 

*  affective  aspect  ratio 

EAR  2*SPAH/MCH0RD 


*  lift  curve  slope 

LCS  =  2*P1 

pqCK.L)  =  q 
PSPAN(K,L)  =  SPAR 
PMNCHD(K,L)  =  MCHORD 
PAREA(K.L)  =  AREA 
PXCP(K,L)  =  XCP 
PYCP(K.l)  =  YCP 
PZCP(K.L/  =  ZCP 
PGAMMA(K,L)  =  GAMMA 
PYHAT(K.L)  =  YHAT 
PEAR(K,L)  =  EAR 
PLCS(K  L)  “  LCS 

EN  =  ER  t  q*(RH0/2)*AREA*LCS*YRAT<-YHAT*WPRI*ENC0N 
40  CONTINUE 
50  CONTINltv 

eo  continue 

DO  70  IV=1,NVK 
ENPL(IV)  =  0 

IF  (NSBSET  .GT.  0)  ENPL(IV)  =  EN*VFS(IV) 

70  CONTINUE 

RETURN 

END 

C  DECK  SCB2 

SUBROUTINE  SCB2  (DELHDG ,B2 ,PI ,NLCH) 

*  This  routine  pre-computes  the  shortcrested  weighting 
»  constants,  B2,  for  variable  spreading  angles. 

*  W.G. MEYERS,  DTNSRDC,  072977 

INTEGER  DELHDG 
DIMENSION  B2(NLCH) 

N  =  180/(2*D£LHDG) 

CONI  =  i./N 
C0N2  =  ?I/(2*N) 

I  =  -  N 

DO  10  K=1,HLCH 
1  =  1+1 

COSI  =  C0S(I*C0N2) 

B2(^K)  =  CON1*COSI*COSI 
10  CONTINUE 

RETURN 

END 
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k)  ro 


C  DECK  SECTl 

SUBROUTIHE  SECTl 

*  d«tenain*»  aoction  type  (ITSK)  amd  bilge  radius  (RDK) 

*  ITSK  =  1  bov  -sections  -  narrow  v  or  u 

*  ITSK  =  2  lull  sections 

*  ITSK  =  3  shallow  v  or  u  (destroyer  stern) 

*  ITSK  =  4  very  rounded  destroyer  midship  section  “  no  eddymaXing 

COMMON  /APPEND/  NBKSET,NBKSTN(2) ,BKIMAG(2) .BKFS(2) ,BKAS(2) . 

2  3KWD(2) ,BKSTN(10,2) .BKHB(10.2) .BKLNTH.BKWDTH, 

2  BKWL(10,2) .BKAN(10.2) .NSKSET.SKIMAG(2) .3KFLS(2) ,SKALS(2) . 

2  SKAUS(2) ,SKHB(2),SKFLWL(2) .SKALWL(2) ,SKAUWL(2) ,NRDSET,RDIMAG(2) . 

2  RDRFS(2) ,RDRAS(2),RDRHB(2) ,RDRFWL(2) ,RDRAWL(2) ,RDTFS(2) .RDTAS(2), 
2  PJ3THB(2),RDTFWL(2),RDTAWL(2),NSBSET,SBIMAG(2) ,S0BRFS(2) ,S0BRAS(2) 
2,S0BRHB(2) ,S0BRFW(2) ,S0BRAW(2) ,SIBRFS(2) ,SIBRAS(2) ,SIBRHB(2) , 

2  SIBRFW(2) ,SIBRAW(2) ,SBTFS(2) .SBTAS(2) ,SBTHB(2) .SBTFUL(2) , 

2  SBTAWL(2) ,KFNSET,FNIMAG(2) ,FNRPS(2) ,FNRAS(2) , 

2  FNRHB(2),FKRFWL(2),FNRAWL(2) ,FNTFS(2) ,FNTAS(2) .FNTHB(2) , 

2  FKTFWL(2) ,FNTAWL(2) ,NEXPRD,ENRD0(8) ,ENRDS(8) 

COMMON  /DATINP/  OPTN.KOTN.BSCFIL.VLACPR.RAOPR.RLDMPR.DISPLHT. 

2  LRAOPR.ADRPR.ORGOPTN,GMNOM,KG,STATN(25) ,NS0FST(25) . 

2  NLEWF(25),HLFBTH(10,25) ,WTRLNE( 10 ,25) .BLEWF(2S) .TLEWF(25) . 

2  AREALF(25) , NPTLOC , PTNUMB ( 10) , PTNAME . XPTL0C( 10) .YPTLOCUO) , 

2  ZPTLOC(IO) ,NBB,FBNUHB(10) .FBNAME.XPTFBDdO) ,YPTFBD(10) , 

2  ZPTFBD(  10)  , FBCODEdO ) , FBTYPE ,  RDOT (10 )  ,  VKDES  , FNDES  , 

2  STATNM.STATIS 

CHARACTER*4  PTNAHE(8,10)  ,FBNAME(8 , 10) ,STATNM(5) ,FBTYPE(3 , 10) 
INTEGER  OPTN , MOTN . BSCFIL , VLACPR , RAOPR , ADRPR , RLDMPR . FBCODE , 

2  FBNUMB, PTNUMB, ORGOPTN 
REAL  KG 

COMMON  /GEOK,'  X.NSTATN.Y.Z.NOFSET.LPP .BEAM, DRAFT, LCF, 

VCG , GM , DELGM , NEBLA ,KPITCH . KROLL , KYAW , KYAURL , AWP , VCB , FBDX , FBDY , 
F*>BZ  NfFPEti  XPT  vpt  2PT  N'^TS  LCE  TiyLf 

bisPLM*,  IPlf CH ,  IROLL !  lY Ali  , lYAW^^CHEA VeTcPITCH I  CHEAPlTcROLL^  ’ 
AREAHX,WSURF, GIRTH, FBDZV,DBLWL,TLCB 
INTEGER  NSTATN,N0FSET(25),NFREBD,NPTS 
CHARACTER*4  TITLE(20) 

REAl-  X(25) ,Y( 10,25) , 2(10 ,25) , FBDZV(8 , 10 )  ,LPP ,BEAM ,DBLWL , TLCB , 

2  DRAFT, LCF, VCG, GM, DELGM, NEBLA, KPITCH, KROLL, KYAW, KYAWRL, AWP, VCB, 

2  FBDX (10) ,FBDY(10) ,FBDZ( 10) ,XPT( 10) ,YPT(10) ,ZPT(10) ,LCB,GML, 

4  ASTAT(25) ,BSTAT(26) ,MASS  ,DISPLM , IPITCH , IROLL , lYAW , 

5  IYAWRL,CHEAVE.CPITCH,CHEAPI,CROLL,AREAMX,WSURF, GIRTH (25) 

COMMON  /lO/  SYSFIL,P0TFIL,C0FFIL,LC0FIL,ICARD.TEXFIL,1PRIN, 

2  SCRFIL,HPLFIL,LRAFIL,ORGFIL,RAOFIL,RHSFIL,SEVFIL,SPDFIL, 

2  SPTFIL,LACFIL,LAEFIL 

INTEGER  SYSFIL,POTF1L,COFFIL,LCOFIL,1CARD,TEXFIL,IPRIN, 

2  SCRFIL,HPLFIL,LRAFIL,0RGFIL,RA0F1L,RMSFIL,SEVFIL,SPDFIL, 

2  SPTFIL,LACFIL,LAEFIL 

COMMON  /RLDBK/  PSUR(25) ,BMK(25) ,DK(2B) ,CAK(25) , HQ , HSPAN , HMKCHD , 

2  HAREA,HXCP,HYCP,H2CP,HGAMMA.HYHAT,HEAR,HLCS,RQ(2) ,RSPAN(2) , 

2  RKNCHD(2) ,RAREA(2) ,RXCP(2) ,RYCP(2) ,R2CP(2) ,RGAMMA(2) ,RYHAT(2) , 

2  REAR(2),RLCS(2) ,SQ(2) , SSPAN (2) . SMNCHD (2) , SAREA (2) ,SXCP(2 ) , 

2  SYCP(2),SZCP(2) ,SGAMMA(2) ,SYHAT (2) ,SEAR(2) , SLCS (2 )  BQ(2)  , 

2  BSPAN(2) ,BMNCHD(2) ,BAREA(2) , BXCPf2) , BYCP(2) ,BZCP(2) ,BGAMMA(2) , 

2  BYHAT(2) ,BEAR(2) ,BLCS(2)  ,FQ ( 2) , FSPAN (2 ) ,FHNChD(2) ,FAREA(2) , 

2  FXCP(2) ,FYCP(2) ,FZCP(2) ,FGAMMA(2) ,FYHAT(2) ,FEAR(2)  FLCS(2) , 

2  PQ(2,2) ,PSPAN(2,2) ,PKNCHD(2 , 2) , PAREA(2 , 2) ,PXCP (2 , 2) , PYCP (2 , 2) , 

2  PZCr(2,2),PGAMMA(2,2)  ,PYKAT(2,2) , PEAR (2, 2) ,PLCS(2,2), 

2  STADMPdO)  ,SHPDMP(10,8)  ,ENC0N,V.’rri,TPHI,WHELM(4,9),SFELM(4,9,8) 

2  REELM(4,9,8) ,PEELM(4,9,8) ,FEELM(4,9.8) ,HEELK(4 , 9 ,8) , BEELH(4 , 9 , 8 ) , 
2  ENWM,ENSF(8,8) ,ENRE(8) .ENPE(8) ,ENFE(8) ,ENHE(8) ,ENBE(8) , 

2  ENEMV(8,8) ,ENRL(8) , ENPL( 8) . ENFL(8) ,ENHL(8 ) , ENSL(8 ) , ENBL(8 ) , 

2  ENSHP(8,8) ,RELM(4,9) ,ITS(25) , RD (25) , EDDY(8 , 25) , RGB( 25 ) 

REAL  RDBLK(2692) 

EQUIVALENCE  (PSUR( 1 ) , RDBLKd ) ) 


20G 


DIMEHSTOK  AA(3,4) ,AR(10) 

K  =  KSTATK  +  1 
DC  100  K=1,HSTATK 
M  -  M  -  1 
lTSK-4 
RDK=1. 

IF  (HOFSET(K)  .LT.  2)  GO  TO  21 
KNODES  =  KOFSET(K) 

BLOCAL  =  BKK(K) 

TLOCAL  =  DK(K) 

ORG  -  TLOCAL  -  VCG 

c  ^  ( If  ^ 

GDB  =  ABS(0RG)/(2, •BLOCAL) 

RHIN=1.E38 
HHM=NH0DES-1 
DO  31  1=2, HHM 

DO  32  J=1.3 

IDX=I+J-2 

AAp.  1)=Y(IDX.K)»*2+Z(IDX,K)**2 
AA(J,2)=Y(IDX,K) 

AA(J ,3)=2(IDX,K) 

AA(J,4)=1.0 

32  CONTINUE 
A=CMINR(1,AA) 

B=-CMINR(2,AA) 

C=CMINR(3.AA) 

D=-CMINR(4.AA) 

IF  (A  .EO.  0)  GO  TO  33 
DY=Y(I+1 .K)-Y(I-1 ,K) 

IF  (ABS(DY)  -EO.  0.)  GO  TO  33 

ZT=Z(1-1.K)+(Z(I+1 .K)-Z(I-1,K))*(Y(I,K)-Y(I-1,K))/DY 

1F(ZT.LE.Z(I,K))  GO  TO  33 

YC=-B/(2.*A) 

ZC=-C/(2,^A) 

R=SQRT(ABS(YC*YC+ZC*ZC-D/A) ) 

AR(I)  =  R 

IF  (R  .LT.  RKIN)  RHIN=R 

33  CONTINUE 
31  CONTINUE 

RDK=RMIN 


•  SERE  not  used  (triangular  sections) 

•  IF  (BDG.GT.0.8  .AND.  BDG.LE.2.25)  ITSK  =  3 

IF  (CAC  .GT.  0.65)  ITSK  =  4 
IF  (CAC  .GE.  0.95)  ITSK  =  2 
IF  (GDB  .GE,  1.2)  ITSK  =  1 

•  no  eddymaking  (TANAKA)  lor  stations  with  bilgekeels 

IF  (NBKSET  .EO.  0)  CO  TO  40 
DO  30  1=1, NBKSET 
NBKS  =  NBKSTN(I) 

DO  20  J=1,NEKS 

IF  (.NOT.(STATN(M) .EQ.BKSTN(J,I)))  GO  TO  20 
YBK  =  BKRB(J,I) 

ZBK  =  BKWL(J,I)  -  DBLWL 

WRITE  (IPRIN.IOOO)  BKSTN ( J . 1 ) , YBK , ZBK 
1000  FORMAT  (/3F10.2) 

Ml=2 

M2=NNM 

DO  11  NN=2,HNM 

IF  (Z(NN,K) .LT.ZBK)  GO  TO  11 

M2  =  NN 

M1=NN-1 

IF  (Z(NN,X) .EQ.ZBK)  M2=NN+i 
GO  TO  12 

11  CONTINUE 

12  CONTINUE 
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I 


L  =  NHOD’"  • 

DO  13  HI  ^.HKM 
L  =  L  - 
R  =  AR(L) 

WRITE  (IPRIN.lOlO)  YCL.K) .2(L.K) .AR(L) 

1010  FORMAT  (2F10.2.1PE12.2) 

13  CONTINUE 

WRITE(IPRIN.lOll)  Ml, M2 

1011  FORMAT  ('  Ml,  H2  =  ’,215) 


I 

I 

I 


♦  search  tor  minirouni  radius  ol  the  bilge  startiiig  from  the  vaterline 

RMIH  =  AR(H2) 

L  =  K2+1 
DO  15  NN=M1,M2 
L  =  L  -  1 
R  =  AH(L) 

IF  (R  .GT.  RMIN)  GO  TO  17 
RMIN  =  R 
IS  CONTINUE 
17  RDK  =  RMIN 

WRITE  (IPRIN,1020)  RMIN 
1020  FORMAT  C8H  RMIN  =,lPEi2.2) 


I 

I 

I 


ITSK  -  4 
GO  TO  21 
20  CONTINUE 
30  CONTINUE 
40  CONTINUE 


*  SERE  used  lor  sections  vith  shegs 

IF  (NSKSET  .EQ,  0)  GO  TO  60 
DO  50  1=1, NSKSET 

IF  (STATN(M)  -Ut.  SKA'JS(l)  .AND.  STaTN(M)  .UE.  bKKLbU))  IT^K  =  3 
60  CONTINUE 
60  CONTINUE 
21  CONTINUE 
RDCK)=RDK 
ITS(K^=ITSK 
100  CONTINUE 


RETURN 

END 


C  DECK  SERAB 

SUBROUTINE  SERAB  (K  , ROLANG  , BLOCAL ,TLOC.^L, ORG  ,RD  , EDDY .  RGB) 


I 

S 

I 

I 

t 


EXTERNAL  EXP 

*  calculates  addy-makinc  roll  danping  data  for  TANAKA  series  A  and  B 

*  REF-  TANAKA,  J.  20SEN''K:0KAI  .  VOL.  109,  1961 

RGB  =  SQRT(ORG*ORG  -  BLOCAL*BLOCAL'  -  RD» (SQRT( 2 . ) - 1 . ) 

EDG  =  2.*BL0CAL/ABS(0RC) 

C  -  FIG56(R0LANG,BDG)*EXP(-FIG7(RCUNC)*RD/ABS(7L0CAL)) 

C  =  C*FTWO(K,TLOCAL,RD) 

EDDY  =  C 

RETURN 

END 


i 

I 

i 


C  DECK  SERD 

SUBROUTINE  SERB  (X , ROLANG , BLCCAL .TLOCAL ,ORG . EDDY , RGB) 
EXTERNAL  EXP 


I 


•  calculates  eddy-itaLking  roll  daitping  data  for  TANAKA  series  D 
»  REF-  TANAKA.  J.  ZOSEN  KIOKAI,  VOL.  109,  1961 


I 


I 


I 
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RGB  =  ABS(ORG) 

IF  (BLOCAL  .L£.  0.)  C  =  0.63 
IF  (ELOCAL  .LE.  0.)  GO  TO  10 
GDB  =  RGB/(2. ‘BLOCAL) 

REQ  =  FIG10(aDB)*BL0CAL 
BDG  =  l./GDB 

C  =  FIG56CR0LANG,BDG)*EXP(-FIG7(R0LANG)*REQ/ABS(TL0CAL)) 
30  CONTINUE 

C  =  C*FTWO(K,TLOCAL,REQ) 

EDDY  =  C 

RETURN 

END 

C  DECK  SERE 

SUBROUTINE  SERE  (BLOCAL, ORG, EDDY, RGB) 

•  calculates  oddy-making  roll  dair.ping  data  for  TANAKA  series  E 

♦  REF-  TANAKA,  J.  20SEN  KIOKAI ,  VOL.  109,  1961 

RGB  =  ABS(ORG) 

BDG  =  2.*BL0CAL/ABS(0RG) 

C  =  FIGll(BDG) 

EDDY  =  C 

RErURN 

END 


C  OECK  SETSEV 

SUBROUTINE.  SET.GEV  (NSVRSP  ,LSVRSP) 

COMMON  /RESPN/'  NRESF  ,  IPOINT(  182)  ,  IMOTN ( 182)  ,  ITYPE(  102) , 
2  ILIN(ie2) ,1SYM(182) 

LOGICAL  ILIN,ISYM 

DIMENSION  LSVRSPCNSVRSP) 


DO  16C  LR=1,HSVRSP 
DO  140  IR=1,NRESP 
IP  =  IPOIKT(IR) 

IM  =  IMOTN (IR) 

IT  =  ITYPE(IR) 

GO  TO  (10, 20, 30, 40, 50, 60, 70, 80, 90, 100, no, 120, 130), LR 

10  IF  (.NOT.  (ir.EQ.O  .AND.  IM.EQ.3  .AND.  I'^.EQ.l))  GO  TO  140 

*  heave 

GO  TO  150 


20  IF  (.NOT.  (IP.EQ.C  .AND.  IM.EQ.5  .AND.  IT.EQ.l))  GO  TO  140 


*  pitch 

GO  TO  160 

3.0  IF  (.NOT.  (IP.EQ.O  .AND.  IM.EQ.2  .AND.  IT.EQ.l) )  GO  TO  140 


*  sway 

GO  TO  ISO 

40  IF  (.NOT.  (IP.EQ.O  .AND.  lM.Eg.4  .AND  IT.EQ.l))  GO  TO  140 

»  roll 

GO  TO  15C 

50  IF  (.NOT.  (IP.EQ.O  .AND.  1K.EQ.6  .AND.  IT.EQ.l))  GO  TO  140 


»  yau 

GO  TO  150 

60  IF  (.NOT,  (IP.EQ.l  .AND.  1M.EQ.3  .AND.  IT.EQ.3))  GO  TO  140 


20'J 


vertical  acceleration  at  point  1  (pi) 

GO  TO  160 

70  IF  (.HOT.  (IP.EQ.l  .AND.  IM.EQ.2  .AND.  IT.EQ.3))  GO  TO  140 

*  lateral  acceleration  at  point  1  (pi) 

GO  TO  160 

80  IF  (.NOT.  (IP.EQ.2  .AND.  IM.Eq.3  .AND.  IT.EQ.3))  GO  TO  140 

•  vertical  acceleration  at  point  2  (p2) 

GO  TO  160 

90  IF  (.HOT.  (IP.EQ.2  .AND.  IM.EQ.2  .AND.  IT.EQ.3))  GO  TO  140 

a  lateral  acceleration  at  point  2  (p2) 

GO  TO  ISO 

ICO  IF  (.NOT.  (IP.EQ.3  .AND.  IM.EQ.3  .AND.  IT.EQ.3))  GO  TO  140 

♦  vertical  acceleration  at  point  3  (p3) 

GO  TO  150 

110  IF  (.HOT.  (IP.EQ.3  .AND.  IM.EQ.2  .AND.  IT.EQ.3))  GO  TO  140 

*  lateral  acceleration  at  point  3  (p3) 

GO  TO  150 

120  IF  (.NOT.  (IP.EQ.4  .AND.  IM.EQ.3  .AND.  IT.EQ.3))  GO  TO  140 

*  vertical  acceleration  at  point  4  (p4) 

GO  TO  150 

130  IF  (.NOT.  (1P.EQ.4  .AND.  IH.EQ.Q  .AND.  IT.EQ.3))  GO  TO  140 

•  lateral  acceleration  at  point  4  (p4) 

GO  TO  i50 

140  CONTINUE 

150  LSVRSP(LR)  =  IR 

160  CONTINUE 

RETURN 

END 

C  DECK  SEVMCT 

SUBROUTINE  SEVMOT  (NSVRSP , RSPNME . HDNG . IMODL) 

COMMON  /DATINP/  OPTN  , MOTN  .  BSCFIL .  VLACPP. , RAOPR,  RI.DMPR  .DISPLHT . 
2  LRAOPR , ADRFR . ORGOPTN . GMNOH . KG , STATN ( 25 ) , NSCFST ( 25 ) . 

2  NLEWF(25) ,HLFBTHC10.25^ , WTRLNE( 10 , 25 ) ,BLEWF(25) ,TLEWFt25) . 

2  AREALF(25) , NPTLOC , PTNUMB ( 10 ) . PTNAHE , IPTLOC ( i 0) .YPTLOC(IO) , 

2  ZPTLCC(  10)  .NBB  ,FBKUMB(  10;  ,FBNAMF.,XPTFBD(  10)  ,  YPTF.3D(  10) . 

2  ZPTFBD(IO)  .FBCODEdO)  .FBTYPE.RDOTdO)  .VKDES  .FNDES  , 

2  STATNM.STATIS 

CKARACTER*4  PTNAHE(8 . 10) ,FBNAME(C , 10) ,STATNM(5) ,FBTYPE(3dO) 

1 N1 EGER  OPTN , MOTN , BSCFIL , VLACFR , RAOPR , ADRPR , RLDMr R , KBCODE , 

2  FbNUMB. PTNUMB, ORGOPTN 
REAL  KG 

COMMON  /ENVIOR/  VK  .  HVK  ,  MU  .  NMb  ,  OMEGA  ,  NOMEGA  .  SlGf.A  .  NSIGMA  ,  SIGWH 

1  NSIGWH . TMODAL , NTMOD . NRANC . RANG , RLANO , S . NNMU . FRNUM , VFS 
INTEGER  HVK  .NMU  .NOHEGA  ,  N  SIGH  A  ,  NSIGWH  ,  NTMOD  .  ‘.'RANG  ,  NNMl' .'8 ) 

REAL  VK(8) .MU(37.8) ,0MEGA(30; ,SIGKA( 10 ) , SIGWH(4 ) , TMOD.\L(H ; , 

2  RANG(8) .RLANG(8),S(30.b; ,FRNUK(8) ,VFS(8) 

COMMON  'GEOM/  X , NSTATN , Y , Z . NOFSET . LPP . BEAM , DRAFT . LCF , 

1  VCG , GH , DELGM .NEBLA .KPITCH .KPOLL ,KYAW , KYAWRL , AWT  . VCB , FBDX ,FBDV 

2  FBD7. , NFREBD , XPT .YPT , ZPT , NPTS . LCE , GML , ASTAT , BSTAT , TITLE , M ASS , 

2  DISPLM . IPITCH . IROLL . I YAW , lYAWRL .CHEAVE . CPITCK , CKEAPl , CROLL , 

2  AREAMX .WSURF, GIRTH .FBD2V  DBLWL.TLCB 

INTEGER  NSTATN ,N0FSET(25) , NFREBD, NPTS 
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CBmCTER*4  T1TLE(20) 

REAL  X(26) ,Y(10,26) ,2(10,26) ,FBD2V(8,10) ,LPP,BEAM,DBLWL,TLCB, 

2  DRAFT, LCF,VCO,GM,DELGM,NEBLA,KPITCH,KROLL,KY AW, KYAWRL,AWP,VCB, 

2  FBDXdOKFBDYdO)  ,FBDZ(10)  ,XPTdO)  ,YPTdO)  ,ZPTdO)  ,LCB,GML, 

4  ASTAT(2d) .BSTAT(2S) ,MASS ,DISPLM , IPITCH, IROLL, IYAW , 

5  1 YAVRL , CBCAVE , CPITCH ,CBEAPI , CROLL , AREAMX , WSURF .GIRTH (25 ) 

COMMON  /INDEX/  PFIDX ,LPFIDX ,RMIDX .LRMIOX , SVIDX ,LSVIDX 

INTEGER  LPFIDX.LRMIDX.LSVIDX 

REAL  PFIDX(236),RMIDXd83)  ,SVIDX(3) 

COMMON  /lO/  SYSFIL,POTFIL,COFFIL,LCOFIL,ICARD,TEXFIL,IPRIN, 

2  SCRFIL,HPLFIL,LRAFIL.0RGF1L,RA0FIL,RMSFIL,SEVFIL,SPDFIL, 

2  SPTFIL,LACFIL,LAEFIL 

INTEGER  SYSFIL , POTFIL , COFFIL , LCOFIL , ICARD , TEXFIL , IPRIN , 

2  SCRFIL , HPLFIL , LRAFIL , ORGFIL , RAOFIL , RMSFIL , SEVFIL , SPDFIL , 

2  SPTFIL,LACFIL,LAEFIL 

COMMON  /PHYSCO/  I I , Ti’I , PI . PIOT, DEGRAD , RADDEG , VKMETR .METRVK , GRAV , 
2  RHO , GNU , RHOS , RHOF , GNUS , GNUF . FTMETR , PUNITS , REYSCL 
COMPLEX  II 

CHARACTER*4  PUNITS(2) 

REAL  TPI , PI , PIOT, DEGRAD , RADDEG , VKMETR , METRVK , GRAV , RHO , GNU , RHOS , 

1  RHOF, ONUS, GNUF, FTMETR 

COMMON  /SEVERE/  NRSIND , RSINDX . NSWIND, SWINDX , RSVTOE , RV ,RH 
REAL  RSINDX(14) ,SWINDX(6 ) , RSVT0E(4O2) 

INTEGER  RV(13)  ,RHd3) 

COMMON  /SMPSY?/  ^IS , AS . SIS . SOS , SDS . HALOS . DEV , PRN , SMPF? , SMPIS , 

2  SMPCS ,SHPDS , SHPTYPS , SHIPS , VARS , CYCLS .TITLES . OPTION . LSIS , LSOS , 

2  LSDS , LHALOS , LDEV , LPRN , LSMPPS ,LSHPIS , LSMPOS , LSHPDS , LSHPTYPS , 

2  LSHIPS,LTITLES 
CHARACTF,R*160  AS 

CHARACTER*80  FIS , SIS . SOS ,SDS , TITLES 

CHARACTER^20  HALOS , DEV . PRN . SMPP3 , SMPIS , SMPOS ,SMPDS . SHPTYPS 
CHARACTER  SHIPS*6 , VARS*2 ,CYCLS*2 
1NTEGER*2  OPTION 

DIMENSION  RSVd3,13)  ,T0E(13,13)  ,TEMVd3)  ,TFMHd3)  ,TEHRd3), 

2  TEMTd3)  .LSVRSPd3)  .HDNG(24)  ,IM0DL(4) 

CHARACTER*4  RSPNME(2,13) 

INTEGER  TEHT 
CHARACTER*4  METF.R 

DATA  METER  /’METE’/ 

DATA  LSVRSP  /2 , 4 , 1 , 3 , 5 , 7 , 0 , 9 , 8 , 1 1 , 10 , 13 , 12/ 

FIS  -  SDSd;LSDS)//'  .SEV' 

OPEN  (UNIT=SEVFIL.F1L’’=FIS.STATUS= ’UNKNOWN’ , 

2  ACCESS= ’DIRECT’ ,RECL=1620) 

NHEAD  =  24 
N1  =  NHEAD  +  1 
WDATA  =  2  +  N1*HVK*2 
DC  600  IC=1,2 
DO  400  IS--1  .NSIGUH 
LT  =  IMODL(IS) 

Dr  300  IR=1,NSVR3P 
Di  200  JR=1.N5VKSP 
LK  =  LSVRSP(JR) 

INDEX  =  NSIGWH  •  NSVPSP  •  (IC  -  1)  +  NSIGWH  •  (LR  -  1)  IS 
READ  (SEV.-'7L.REC=INDEX)  RSVTOE 

-  CDC  CALL  FETCH  ( IC . LR . IS , RSVTOE,  SVIDX . RSINDX , SWINDX , NDATA . LSVIDX . 
*  Cnc  2  N'^PRSP, NSIGUH, SEVFIL) 

IF  (IR  .GT  d  GO  TO  10 
RV(JP)  =  RSVTIil'.(l)  +  .001 
RH(JR)  =  R3VTDE(2)+  .001 
10  IF  (JR  .GT.  1)  GO  TO  20 
IV  =  RV(IR) 
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IH  ®  RB(XR) 

20  IE  =  3  +  (IH-D^a  ♦  (IV-1)*HHEAD*2 
RSV(JR.IR)  =  RSVTOE(IE) 

TOE(JR,IR)  =  RSVT0E(IE+1) 

200  CONTINUE 
300  CONTINUE 

WRITE  (IPRIN.IOOO)  TITLE 

1000  FORMAT  ( IHl , / ,28X . 20A4 , /// , 48X. 28HS  EVERE  MOTION 
2  9RT  A  B  L  E) 

IF  (IC  .EQ.  1)  WRITE  (IPRIN.lOlO) 

IF  (IC  .EO.  2)  WRITE  (lPRIH.:020) 

1010  FORMAT  (//,60X,11HL0NGCRESTED) 

1020  FORMAT  (// ,60X , 12HSH0RTCRESTED) 

IF  (PUaiTS(l)  .HE.  METER)  WRITE  (IPRIN,1030)  SIGWH(IS) 

IF  (PUNITS(l)  .EQ.  METER)  WRITE  (lPRIH,1040)  SIGWH(IS) 

1030  FORMAT  (/ ,42X , 37HSEA  STATE:  SIGNIFICANT  WAVE  HEIGHT  = 

2  .F6.2.''H  FEET  ) 

1040  FORMAT  (/.42X.37HSEA  STATE:  SIGNIFICANT  WAVE  HEIGHT  ^ 

2  .F6.2.7H  METERS) 

WRITE  (IPRIN.IOSO)  TMODAL(LT) 

1050  FORMAT  (64X, 10HMODAL  WAVE  PERIOD  =,F4.0,8H  SECONDS) 

IF  (HSVRSP  .EQ.  6)  GO  TO  60 
NP  =  NSVRSP  -  6 
NP  =  NP  /  2 
WRITE  (IPRIH.1025) 

1026  FORMAT  (// , 64X , 16HP0INT  LOCATIONS:) 

DO  60  IP=1,NP 

WRITE  (IPRIN,1026)  IP, (PTHAME(I,IP) ,1=1 ,8) ,XPTLCC(IP) , 

2  YPTLOC(IP) .ZPTLOCCIP) 

1026  FORMAT  (22X,1HP,I1,3H-  ,8A4,2X,6HXFP  =,F7  2,2X,6HYCL  =,F7.2.2X, 

2  SHZBL  =,F7.2) 

50  CONTINUE 
60  CONTINUE 

WRITE  (IPR1N,1056)  (STATNM (I ) , 1=1 , 3) 

1066  FORMAT  (/ ,40X , 3A4 , 39H  VALUE  /  ENCOUNTERED  MODAL  PERIOD  (TOE)) 
WRITE  (IPRIN,1060)  ( (RSPNME( I , IR) , 1= 1 , 2 ) , IR=1 ,NSVRSP) 

1060  FORMAT  (/ .48X , 32HMAXIMUM  RESPONSES  AND  CONDITIONS ,/, IX , 

2  130(1H-) ,//,14H  RESPONSE  , 13 (4X , A4 , A1 ) ) 

DO  310  IR=1. NSVRSP 
IV  =  RV(IR) 

IH  =  R3(lR) 

TEMV(IRj  =  VK(IV) 

TEMH(IR)  =  HDNG(IH) 

TEMR(IR)  =  RSV(IR,IR) 

IF  (IR  .GT.  6)  TEMR(IR)  =  TEMR(IR)  *  100 
TEMT(IR)  =  TOEdR.IR) 

IF  (TEMT(IR)  .OE.  99)  TEMT(IR)  =  99 
310  CONTINUE 

WRITE  (IPRIN,1070)  (TEMR(IR) ,TEMT(IR) , IR=1 .NSVRSP) 

1070  FORMAT  (/,14H  (MAX . RSV) /TOE, 13(1X ,F5 .2 , IH/ , 12) ) 

WRITE  (IPRIN.1080)  (TEMV(IR)  ,IP.=  1 , NSVRSP) 

1080  FORMAT  (17H  AT  SPEED  (KNOTS j ,F6 . 1 , 12F9 . 1 ) 

WRITE  (IPRIN.1090)  (TEHH(IR) , IR=1 .NSVRSP) 

1090  FORMAT  (17H  AT  HEADING  (DEG ) . F6 . 0 . 12F9 . 0) 

WRITE  (IPRIN.llOO)  ((RSPNMEd. JR) .1=1.2) .JR=1. NSVRSP) 

1100  FORMAT  (//. 54/.. 20HASS0CIATED  RESPONSES. /.IX. 130(1.H-)  .//. 

2  15H  MAX.  SPEED  /,/.15H  RESPN .  HEADING . 3X . A4 , A1 . 12(4X . A4 , A1 ) ) 
WRITE  (IPRIN.lllO) 

1110  FORMAT  (IX) 

DO  330  IR=1. NSVRSP 
IV  =  RV(IR) 

IH  =  RH(IR) 

MV  =  VK(IV)  +  .001 

MH  =  HDNG(IH)  -I  .001 

IF  (IR.EQ.6  .OR.  IR.EQ.8  .OR.  IR.EQ.IO  .OR.  Ik.EQ,12) 

2  WRITE  (IPRIN.lllO) 

DO  320  JR=1 .NSVRSP 
TEMP.(JR)  =  RSV(  3R,IR) 

IF  (JR  .GT.  5)  TEMR(JR)  =  TEMR(JR)  *  100 
TEHT(JR)  =  TOE(JR.IR) 

IF  (TEHT(JR)  .GE.  99)  TEMT(JR)  =  99 
320  CONTINUE 


WRITE  (IPRIlt,1120)  (RSP«ME(I,IR),I-l,2),MV,MH,(TEira(JR),TEHT(JR). 
2  JR=l  HSVRSP) 

1120  FORMAT  ( IX , A4, A1 . 2X,12. 1H/,I3 , 13(F6 . 2 , IH/,  12) ) 

330  CQHTIHUE 

WRITE  (IPRII.1130) 

1130  FORMAT  (// ,2X',42HB0TES :  1)  RESPOHSES  ARE  IH  PHYSICAL  UHITS:,/, 

2  22X,60HHEAVE  AHD  SWAY  ARE  IH  WAVE  HEIGHT  UHITS;  PITCH,  . 

2  29ER0LL,  AHD  YAW  ARE  IH  DEGREES; ,/,22X.23HAHD  THE  POIHT  VERTICAL. 
2  63HAID  LATERAL  ACCELERATIOHS  ARE  IH  UHITS  OF  G-S  *  100.) 

WRITE  (IPRIH,1140) 

1140  FORMAT  (eX,BlH2)  POIHT  LOCATIOHS;  XFP  IS  II  STATIOH  HUMBERS ; 

2  ,37HYCL  AHD  ZCL  ARE  IH  WAVE  HEIGHT  UHITS.) 

WRITE  (IPRIH.1160) 

1160  FORMAT (9X,62H3;  HEADING  COHVEHTIOH:  0  DEG=HEAD,  80  DEG=STBD  BEAM, 
2  .24B  180  DEG-FOLLOWIHG  SEAS.) 

400  COHTIHUE 
600  COHTIHUE 

CLOSE  (UNIT=SEVFIL) 

RETURH 

EHD 

r  nPfK  ‘iVFP'^P 

FUNCTIOH  SKFRSP  (WE.LPP ,V,SFD) 

REAL  LPP 

SKFRSP  =  SFD*(1.  +  4.1*V/(WE*LPP)) 

RETURN 

END 

C  DECK  SKLIFT 

SUBROUTINE  SKLIFT 

COMMON  /APPEND/  NBKSET , NBKSTN (2) , BKIMAG (2) , BKFS(2 ) , BKAS(2) , 

2  BKWD(2) .BKSTNf 10,2) .BKHB(10.2) .BKLNTH.BKWDTH , 

2  BKWL(10,2),BKAN(JO,2) , N3KSET . SKIMAG(2) , SKFLS^ 2) ,SKALSr2) , 

2  SKAUS(2)  ,SKHB(2),SKFLWL(2)  ,SKALWL(;2)  , SKAUWL(2) , NRDSET , RDIMAG(2 ) , 

2  RDRFS(2) ,RDRAS(2),RDRHB(2) ,RDRFWL(2) ,RDRAWL(2) ,RDTFS(2) .RDTAS(2), 
2  RDTHB(2) ,RDTFWL(2),RDTAHL(2) ,HSBSET,SBIMAG(2) ,SCBRFS(2) .S0BRAS(2) 
2,S0BRHB(2) .S0BRFW(2) ,S0BRAW(2) ,SIBr.FS(2) ,SIBRAS(2) ,SIBRHB(2) , 

2  SIBRFW(2) ,SIBRAW(2) .SBTFS(2) .SBTAS(2) .SBTHB(2) ,SBTFWL(2) . 

2  SBTAWL(2) , KFNSET, FNIMAG (2) , FNRFS ( 2 ) , FNRAS( 2)  , 

2  FNRHB(2) , FNRFWL (2 } ,FNRAWL(2 ) . FNTFS (2 ) , FNTAS (2) .FNTEB(2) , 

2  FNTFWL(2) ,FNTAWL(2) ,NEXPRD,EKRD0(8) ,ENRDS(8) 

COMMON  /ENVIOR/  VK , HVX , MU, HMU . OMEGA . IOMEGA , SIGMA , HSIGMA . SIGWH , 

1  NSIGWH , TMODAL . HTMOD . HRANG , RANG . RLANG , S , HNMU , FRNUM , VFS 
INTEGER  NVK, HMU. IOMEGA, HSIGMA, HSIGWH, HTMOD, NRANG,NNMU(8) 

REAL  VK(8).MUl.  V.8).0MECA(.30)  .SICMA(10),SIGWH(4)  ,TM0DAL(8)  . 

2  RANG(e) ,RLANC(8) ,S(30,8) .FRNUM(8) .VFS(8) 

COMMON  /GF.OM/  X  ,  HSTATH  .  Y  ,2 ,  HOFSET  .  LPP .  BEAM  .  DRAFT .  LCF , 

1  VCG,GM,DELGH,HEBL» .KPITCH.KROLL.KYAW.KYAWRL.AUP  VCB ,FBDX ,FRDY , 

2  FBDZ,NFREBD,XPT.YPT.ZPT,HPTS.LCB.CML,ASTAT,EETAt, TITLE, MASS, 

2  DISPLM,IPITCH,IROLL,IYAW,IYAWRL,CHEAVE,CFITCH,CHEAPI,CROLL, 

2  AREAHX.WSURF, GIRTH, FBDZV.DBLWL.TI.^B 

I NTEGER  KSTATH , NOFGET( 20 ) , HFREBL , HPTS 
CHARACTER*4  TITLE(20) 

REAL  X(26 ),Y( 10,25) ,Z( 10,26 ) .FBDZV (8,10) , LPP .BEAM ,DBLWL ,TLCB , 

2  DRAFT, LCF, VCG,GM,DELCM,NEBLA .KPITCH.KROLL.KYAW.KYAWRL.AUP, VCB, 

2  FBDX(IO) ,FBDY(10),FBDZ()0).XPT(10) . YPT( 10 ) . ZPT( 1 0 ) .LCB.GML, 

4  ASTAT(25) .BSTAT (25 ) , MASS .DISPLM , IPITCK , IROLL , I YAW , 

6  lYAWRL.CHEAVE.CPlTCH .CHEAPI , CROLL , ARE»MX , WSURF , GIRTH(2S ) 

COMMON  /PHYSCO/  II ,TPI . PI . PIOT , DECRAD .RADDEG , VKMETR .HLTRVK , GRAV , 
2  RHO,GMU,RHCS,RHOF,CNUS ,GNUF,FTMETR,PUNITS .REYSCL 
COMPLEX  II 

CHARACTER*4  PUN  ITS  ('2) 

REAL  TPI , PI, PI OT. DEGRAD, RADDEG,VKHETR,METRVK,GRAV,RHO, GNU, RHOS, 


1  RHOF,GIUS,GIUF,FTMETR 

COMMOB  /RLDBK/  PSUR(2S) ,BMK(25) ,DK(26) ,CAK(28) ,Hq,HSPAB,HMHCBD, 

2  HAREA,HXCP,HYCP,H2CP,HGAMMA,HYHAT,HEAR,HLCS.RQ(2) ,RSPAN(2) . 

2  RMNCHD(2),RAREA(2).RXCP(2) ,RYCP(2) ,RZCP(2) ,RCAMMA(2) ,RYHAT(2) , 

2  REAR(2) ,RLCS(2) ,SP(2) ,SSPAN(2) ,SMHCHD(2) ,SAREA(2) ,SXCP(2) , 

2  SYCP(2),SZCPr2)  ,SGAKMA(2),SYHAT(2),SEAR(2),SLCS(2),BQ(2) , 

2  BSPAN(2) ,BKHCHD(2) ,BAREA(2) ,BXCP(2) ,BYCP(2) ,BZCP(2) ,BGAMMA(2) , 

2  BYHAT(2) ,BEAR(2) ,BLCS(2) .FQ(2) ,FSPAN(2) ,FMHCHD(2) ,FAREA(2) , 

2  FXCP(2) ,FYCP(2) ,FZCP(2) ,FGAMMA(2) ,rYHAT(2) ,FEAR(2) ,FLCS(2) . 

2  PQ(2.2) ,PSPAN(2.2).PMNCHD{2,2),PAREA(2,2),PXCP(2,2),PYCP(2,2). 

2  PZCP(2,2),PGAMMA(2,2) ,PYHAT(2,2) .PEAR(2,2) ,PLCS(2,2) , 

2  STADMP(1O),SHPDHP(1O.8),EHCOH,WPHI,TPH1,WMELM(4,0),SFELM(4.9,8), 

2  REELM(4,9,8) ,PEELM(4,9,8) ,FEELM(4,9.8) .HEELK(4,9,8) ,BEELM(4.9.85 , 
2  EHW«.ENSF(8,8) .EItRE(8) .ENPE(8) ,EHFE(8) ,ENHE(8) ,EHBE(8) , 

2  ENEMv78.8) .EBRL(8) ,E«PL(8) .EBFL(8) ,EHHL(8) ,E»SL(8) ,EHBL(8) , 

2  EBSHP(8,8) ,RELM(4,9) ,ITS(26) ,RJD(25) ,EDDY(8.26) ,RGB(2S) 

REAL  RDBLK{2692) 

EQUIVALEHCE  (PSUR( 1 ) , RDBLK( 1 ) ) 

REAL  LCS.MCHORO 

IF  (HSKSET  .EQ.  0)  GO  TO  20 
EN  =  0 

STASPC  =  LPP/20 

DO  10  K=l. HSKSET 

XSKF  -  LCB  -  SKFLS(K)*STAGPC 

XSKAU  =  LCB  -  SKAUS(K)*STASPC 

XSKAL  =  LCB  -  SKALS(KWsTAS»"v 

YSKG  =  SKHB(K) 

ZSKF  =  SKFLWL(K)  -  (DbLWL+VCG) 

ZSKAU  =  SKAUtfLC')  -  (DBLWL+VCG) 

ZSKAL  =  SKALWL(K)  -  (DBLWL+VCG) 

Q  =  SKTH;.i;.(K) 

GAM««  =  -  90 

SPAH  s  ZSKAU  -  ZSKAL 

MCEORD  =  (XSKF  -  XSKAL)/2 

*  area 

AREA  =  SPAN+MCHORD 

+  center  ol  pressure 

XCP  =  XSKAL  +  (XSKF  -  XSKAL)/3 
YCP  =  YSKG 

ZCP  =  ZSKF  +  (ZSKAU  -  ZSKF)/6 

+  moment  arm 

GAM  =  GAMMA+DEGRAD 

YHAT  =  YCP+COS(GAM)  +  ZCP*SIN(GAM) 

*  effective  aspect  ratio 

EAR  =  2+SPAH/MCHORD 

*  lilt  curve  slope 

LCS  =  (PI/2)+EAR 
SQ(K)  =  Q 
SSPAN(K)  =  SPAN 
SMNCHD(K)  =  MCHORD 
SAREA(K)  t  area 
SXCP(K)  =  XCP 
SYCP(K)  =  YC? 

SZCP(K)  =  ZCP 
SGAHHA(K)  •-  GAMMA 
SYHAT(K)  =  YHAT 
SEAR(K)  -  EAR 
SLCS(K)  =  LCS 

EN  =  EN  +  Q*(RH0/2)*AREA*LCS*YHAT*YHAT*WPHI*ENC0N 
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10  comiruE 
20  COITIBUE 

DO  30  IV=1,IVK 
E»SL(IV)  =  0 

IF  (HSKSET  .GT.  0)  EISL(IV)  =  EH*VFS(IV) 

30  COMTIHUE 

RETURN 

END 

C  DECK  SKNFRC 

SUBROUTINE  SKNFRC 

COMMON  /CH3D/  I3IGMA,SIGMIN.SIGMAX,V,SIBMU,C0SMU.WTSI. 

2  IMMIN,IMMAX,IMl)Sr,.I.*'TN.lHAX 

REAL  SIGl1IH,SIGMAX,V.SINMU,C0SMU,WTSI(4) 

INTEGER  ISIGMA.IHMIN.IMMAX.IMDEL.LMIK.LMAX 

COMMON  /EHVIOR/  VK.NVK, MU, HMU. OMEGA, KOMEGA, SIGMA, HSIGHA.SIGWH, 

1  NSIGUH ,TMODAL ,NTMOD , NRANG , RANG , RLANG , S , HNMU ,FRNUM , VFS 
INTEGER  N VK , NHU , NOHEG A , NSIGM A , NSIGUH , NTMOD , NRANG , NNHU (8 ) 

REAL  VK(8) ,MU(37,8) ,0MEGA(3O) .SIGMAf 10),SIGWH(4) ,TM0DAL(8) , 

2  RAHG(8),RLANG(8) ,S(30,8) ,FRNUM(8) . VFS(8) 

COMMON  /GEOM/  X ,HSTATN ,Z , NOFSET ,LPP ,BEAM ,DRAFT,LCF , 

1  VCG,aM,DELGM,NEBLA,KPITCH,KROLL,KYAW,KYAWRL,AWP,VCB,FBDX,FBDY, 

2  FBDZ , HFREBD ,  XPT , YPT , ZPT , NPTS , LCB , GML , ASTAT , BSTAT , TITLE , M ASS , 

2  DISPLM . IPITCH , IROLL . lYAW , lYAWRL .CHEAVE , CPITCH, CHEAPI , CROLL, 

2  ARE AMX , WSURF , GIRTH , FBDZV , DBLWL , TLCB 

INTEGER  NSTATN,N0FSET(26) ,NFREBD,NPTS 
CHARACTER*4  TITLE(20) 

REAL  X(25) ,Y(10,25) ,Z(10.25) ,FBDZV(8,10) ,LPP , BEAM , DBLWL , TLCB , 

2  DRAFT , LCF . VCG . GM , DELGM , NEBLA , KPITCH , KROLL , KYAW , KYAWRL , AWP , VCB , 

2  FBDX(10),FBDY(10) , FBDZ( 10) , XPT( 10 ) ,YPT(10) ,ZPT(10) , LCD, GML, 

4  ASTAT(25) , BSTAT(26 }, MASS , DISPLM . IPITCH , IROLL ,IYAW , 

B  lYAWRL, CHEAVE, CPITCH, CHEAPI, CROLL, AREAMX, WSURF, GIRTH(25) 

COMMON  /PHYSCO/  II ,TPI , PI ,PIOT, DEGRAD .RADDEG .VKMETR,METRVK, GRAY , 

2  RHO , GNU , RHOS ,RHOF . GNUS , GNUF , FTMETR , PUNITS , REYSCL 
COMPLEX  II 

CHARACTER*4  PUNITS(2) 

REAL  TPI , PI ,  PIOT , DEGRAD , RADDEG , VKMETR , METRVK ,GRAV , RHO , GNU , RHOS , 

1  RHOF, GNUS, GNUF, FTMETR 

COMMON  /RLDBK/  PSUR(2B) , BMK (26) ,DK (25) ,CAK(2B) , HO , HSPAN , HMNCHD , 

2  HAREA , HXCP , HYCP , HZCP . HG AHMA , HYHAT, HEAL , HLCS . RQ ( 2 ) , RSP AN( 2 ) , 

2  RMNCHD(2) .RAREA(2)  , RXCP(2) , RYCP (2) , RZCP(2 ) ,RGAMMA(2) ,RYHAT(2) , 

2  REAR(2),RLCS(2) ,SQ (2) , SSPAN (2 ) . SMNCHD(2) , SAREA (2) ,SXCP(2) , 

2  SYCP(2),SZCP(2) ,SGAMMA(2) ,SYHAT(2) , SEAR(2 ) , SLCS (2) ,BQ (2) , 

2  BSPAN(2) ,BMNCHD(2) .BAREA(2) ,BXCP(2) ,BYCP(2) ,BZCP(2) ,BGAMMA(2) , 

2  BYHAT(2) ,BEAR(2) ,BLCS(2) ,F0(2 ) ,rSPAN(2 . ,FMNCHD(2) ,FAREA(2) , 

2  FXCP(2),FYCP(2)  ,FZCP(2)  ,FGAMMA(2)  .  FYHA'.  (2 )  ,  FEAR(2)  ,FLCS(  2)  , 

2  PQ(2,2),PSPA»(2,2) , PMNCHD(2 , 2 ) . PAREA(2 , 2 ) , PXCP (2 , 2) , PYCP (2 , 2 ) , 

2  PZCP(2,2) ,PGAMMA(2,2) ,PYHAT(2,2) ,PEAR(2,2) ,PLCS(2,2) , 

2  STADMP(IO)  ,SHPDMP(10,S) , ENCON  , WPHI ,TPHI . WMELM(4 ,0) ,SFELM(4 , 9 , 8 ) , 

2  REELM(4,9,8) ,PEELM(4,9,8) .FEELM(4.9.8) ,HEELM(4 , 9 ,8) ,BEELM(4 , 9 , 8) , 
2  ENWM,ENSF(8,8) ,ENRE(8) , ENPE( 8 ) ,ENFE(8) . ENHE(8) , ENBE(8 ) , 

2  ENEMV(8,8) ,ENRL(8) ,ENPL(8) ,EPFL(8) .ENHUB) ,ENSL(8) ,ENBL(8) , 

2  ENSHP(8.8)  ,RF.LM(4,9),ITS(25)  ,RD(26)  ,EDDY(8,26)  ,RGB(2&) 

REAL  RDBLK(2692) 

EQUIVALENCE  (PSUR( 1 ) , RDBLK( 1 ) ) 

DATA  RNT/3.E6/ 

1.0  10  IA=1  .NRANG 
DO  10  IS=1 ,HSiaMA 
SHPDMPdS.lA)  =  0 
10  CONTINUE 

DO  40  K=1 ,NSTATH 
IF  (NOrSET(K)  .LT.  2)  GO  TO  40 

RS  =  1 ./PI *((0.887+0. 145*CAK(K))*(1 .7*ABS(DK(K) )+CAK(K)*2*BMK(K)) 
2  +  2. *700) 


COM  «  4./(3.*PI)*RH0*PSUR(K)*RS»*3 
DO  30  IA=1»9KAHG 
DO  20  IS^I.ISIGNA 
PERE  «  TPI/SIGMAdS) 

RH  =  (3.22*(RS»RAIG(IA))**2  /  (PERE^GHU))  ♦  REYSCL 

*  laminair  floff 

CF  =  1.32a/SQRT(RH) 

•  turbulent  Ilow 

IF  (RH  .GE.  RNT)  CF  =  CF  0.014eRH**(-0. 114) 

STADMP(IS)  =  COIf»SIGMA(IS)eRAIfG(IA)*CF 
STADMP(IS)  «  SIGMA(IS)eSTADHP(IS) 

SHPDMPCIS  lA)  =  SHPDMPCIS.IA)  +  STADMP(IS) 

20  COHTIHUE 
30  COKTIKUE 
40  COKTIHUE 

DO  SO  IA=1.HRAHG 

CALL  SPFIT  (SIGMA. SHPDMP(1.IA),SFELM(1,1,IA),NSIGMA) 

EHSFO  =  EHCON^REVAL  (SFELM(l.ISIGMA.IA) ,WTSI) 

DO  45  IV=1,»VK 

ENSF(IV.IA)  =  SKFRSP  (WPHI ,LPP . VFS(IV) . ENSFO) 

46  CONTINUE 
60  CONTINUE 

RETURN 
END 

C  DECK  SLENTH 

SUBROUTINE  SLENTH  (AS,K) 

CHARACTER*(*)  AS 
L=LEN(AS) 

K=L+1 

DO  10  M=1.L 
K=K-1 

IF  (AS(K:K).HE.CHAR(32))  GO  TO  20  *  Test  lor  trailing  blanks 

10  CONTINUE 
20  CONTINUE 


RETURN 

END 

C  DECK  SMP93  *  Stemdard  Ship  Motion  Program  (SMP93) 
PROGRAM  SMP93 


Standard  Ship  Motion  Program  (SMP93) 
lor  Personal  Computers 


Operating  Dvatera  MS-DOS  Version  4.01 
FORTRAN  7/  using  Lahey  Fortran 
Overlay  linking  using  PLINK86 


Hull  plot  and  Speed  Polar/Density  plots 
done  in  separate  programs 
using  HALO  graphics  language 


COMMON  /APPEND/  NBKSET.NBKSTN(2) .BKIMAG(2) .BKFS(2) .BKAS(2) . 

2  BKWD(2) ,BKSTN(10,2) ,BKHB(10.2) .BKLNTH.BKWDTH. 

2  BKWL(10,2).BKAN(10.2) .NSKSET ,SKIMAG(2) . SKFLS(2 J .SKALS(2) . 

2  SKAUS(2) ,SKHB(2),SKFLVL(?\SKALWL(2) ,SKAUWL(2) ,NRDSET.RDIMAG(2; , 

2  RC  •  ,RDRAS(2),RDRHB(2)  .RDRFWL(2)  ,RDRAWLv2)  .RDTFS.2)  .RDTA;:(2)  . 

2  RDTHBO.y  ,'.DTFWL(2),RDTAWL(2),NSaSET,SBIMAG(2)  .S0BRFS(2)  .SOBRAS(2) 
2.SuBR;.a(2;  ,S0BRFW(2)  ,S0BRAW(2;  ,SIBRFSC2)  ,S1BRAS(2)  ,SIBRHB(2)  , 


2  SIBRFV(2) ,SIBRAW(2) ,SBTFS(2) ,SBTAS(2) ,SBTHB(2) .SBTFWL(2) , 

2  SBTAWL(2)  ,IFISET,FRIMAG(2)  ,FIiRFS(2)  .FIIRAS(2) , 

2  FIRHB{2) ,FirRFWL(2) ,FHRAWL(2) ,FHTFS(2) .FKTAS(2) ,FITHB(2) . 

2  FITFyL(2) .FITAVL(2) .BEXPRD.EBRDOCB) .EBRDS(8) 

COMMOB  /CH3D/  ISIGMA,SIGICIB,SIGHAX,V,SIBMU,COSKU.yTSI, 

2  INHZB,IMMAX,IMOEL,LMIB,LHAX 

REAL  SIGMIB , SIGMAX , V , SIBHU , COSNU , WTSI (4) 

IBTEGER  ISIGHA , IHHIB , IMMAX . IKOEL . LHIB , LHAX 

COMMOB  /DATIBP/  OPTB.MOTB.BSCFIL.VLACPR.RAOPR.RLDMPR.DISPLMT, 

2  LRAOPR , ADRPR , ORGOPTB , GMHOM , KG  , STATN ( 2S ) , BSOFST ( 2E ) , 

2  BLEWF ( 26 ) , HLFBTH (10,26), BTRLBEC 10,26), BLEWF ( 26 ) , fLEWF ( 26 ) , 

2  AAEALF(26) ,BPTL0C,PTBUMB(10) ,PTBAHE,XPTL0C(10) .YPTLOCUO) , 

2  ZPTLOC(IO) ,BBB,FBKUMB(10) .FBBAME,XPTFBD(10) .YPTFBD(IO) , 

2  ZPTFBDUO;-  .FBCODE(IO)  ,FBTYPE,RDOT(10) , VKDE? ,FBDE' , 

2  STATBM,STATIS 

CHARACTER*4  PTBAME(8 . 10) ,FBNAME(8 , 10) ,STATKH(5) ,FBTYPE(3 , 10) 
INTEGER  OPTH ,MOTN .BSCFIL, VLACPR,RAOPR . ADRPR , RL.DMPR,FBCODE , 

2  FBHUMB,PTBUMB,ORGOPTN 
REAL  KG 

COMMOB  /EBVIOR/  VK.BVK, MU, BMU, OMEGA, BOMEGA, SIGMA, BSIGMA,SIGWH, 

1  HSIGWH ,TMODAL , BTMOD , BRABG . RANG , RLAHG , S , BBHU , FRNUM , VFS 
IBTEGER  BVK . BMU , BOMEGA .BSIGMA.BSIGWH, BTMOD , BRABG . BNMU ( 8 ) 

REAL  VK(8) ,MU(37,8) .0HEGA(30) .SIGHAClO) ,SIGWH(4) ,TM0DAL(8) , 

2  RAMG(8) ,RLABG(8) ,S(30,8) .FRBUM(8) ,VFS(8) 

COMMOB  /FIBCON/  lACTFB , IFCLCS ,FGAIK(8) ,FK(3) ,FA (3) ,FB(3) , 

2  FCLCS(8,2) 

COMMON  /GEOM/  X , BSTATN , Y ,2 , NOFSET , LPP ,BEAM ,DRAFT ,LCF , 

1  VCG . GM .DELGM . BEBLA , KPITCH , KROLL , KYAW , KY AWRL , AWP . VCB , FBDX , FBDY , 

2  FEDZ.NFREBD,XPT,YPT,ZPT,BPTS,LCB,GHL,ASTAT,BSTAT, TITLE, MASS, 

2  DISPLM , iriTCH , IROLL , I YAW , I YAWRI. , CHEAVE , CPITCH , CHEAPI , CROLL , 

2  AREAMX.WSURF, GIRTH, FBDZV.DBLWL.TLCB 

INTEGER  NSTATN , B0FSET(26) , NFREBD ,NPTS 
CHARACTER*4  TITLE(20) 

REAL  X(2B) ,Y(10,25) .2(10.26) .FBDZV(8.10) .LPP. BEAM. DBLWL.TLCB. 

2  DRAFT , LCF , VCG , GM , CELGH , BEBLA . KPITCH , KROLL , KYAW , KYAWRL , AWP , VCB , 

2  FBDX(10),FBDY(10) ,FBDZ(10) ,XPT(10) ,YPT(10) , ZPT( 10) , LCB ,GHL , 

4  ASTAT(26) .BSTAT(2S) .MASS .DISPLM . IPITCH , IROLL , lYAW . 

5  lYAWRL , CHEAVE , CPITCH , CHEAPI , CROLL , AREAMX , WSURF . GIRTH( 26 ) 

COMMON  /HULL/  A2e 

COMMON  /INDEX/  PFIDX.LPFIDX.RMIDX,LRMIDX,SVIDX,LSVIDX 

INTEGER  LPFIDX.LRMIDX.LSVIDX 

REAL  PFIDX(235) .RMIDX(183) ,SVIDX(3) 

COMMON  /XO/  SYSFIL,POTFIL,COFFIL.LCOFIL,ICARD,TEXFIL,IPRIH, 

2  SCRFIL . HPLFIL , LRAFIL , ORGFIL . RAOFIL . RMSFIL , SEVFIL , SPDFIL , 

2  SPTFIL.LACFIL.LAEFIL 

INTEGER  SYSFIL. POTFIL, COFFIL .LCOFIL ,ICARD .TEXFIL . IPRIN , 

2  SCRFIL , HPLFIL , LRAFIL , ORGFIL , RAOFIL , RMSFIL , SEVFIL , SPDFIL , 

2  SPTFIL.LACFIL.LAEFIL 

COMMON  /LOADS/  NLOADS .SWGHT(26) .SMASS(26) ,XLDSTN(10) ,XLDXPT(2B) . 

2  LSTATN(26) 

COMMON  /PELEM/  PELEH 
COMPLEX  PELEM(4,1000) 

COMMOB  /PHYSCO/  II ,TPI , PI , PIOT, DEGRAD .RADDEG .VKMETR .METRVK ,GKAV , 

2  RHO , GNU , RHOS , RHOF , GNUS , GNUF , FTMETR . PUNITS , REYSCL 
COMPLEX  II 

CHARACTER*4  PUKITS(2) 

REAL  TPI.PI .PIOT. DEGRAD. RADDEG, VKMETR, METRVK, GRAV, RHO. GNU .RHOS, 

1  RHOF. GNUS. GNUF .FTMETR 

COMMON  /RDGEO/  BKLEN .WBKMAX ,DLBKEL(26) . SRBS( 26) , PHIS (25) , CPS (26) , 

2  BKT(25) ,RKS(26) ,SSTR(25) 
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COMMOI  /RESPI/  ■RESP,IPOIBT(182) .IM0TI(182).ITYPE(182) , 

2  1LII(182) ,ISYN(182) 

LOGICAL  ILII.ISYM 

COMMOI  /RLDBK/  PSUR(2B) ,BMK(26) ,DK(25) ,CAK(26) .HQ.HSPAN.HMMCHD, 
2  H AREA , HXCP  , HYCP . HZCP ,HG AMMA . HYH AT , HEAR . HLCS , RQ ( 2 ) , RSPAK ( 2 ) , 

2  RMKCHD(2) ,RAREA(2) ,RXCP(2) ,RYCP(2) ,RZCP(2) ,RGAMMA(2) ,RYHAT(2) , 

2  REAR(2) ,RLCS(2) .SQ(2) .SSPAN(2) .SMNCRD(2) .SAREA(2) ,SXCP(2) , 

2  SYCP(2),SZCP(2) ,SGAMMA(2),SYHAT(2),SEAR(2),SLCS(2),BQ(2), 

2  BSPAN(2) ,BMMCHD(2) ,BAREA(2) ,BXCP(2) ,BYCP(2) ,B2CP(2) ,RGAMMA(2) , 

2  BYHAT(2) .BEAR(2) ,BLCS(2) ,FQ(2) .FSPAN(2) ,FMKCHD(2) ,FAREA(2) , 

2  FXCP(2) ,FYCP(2) ,FZCP(2) ,FGAMMA(2) .FYHATC2) ,FEAR(2),FLCS(2) , 

2  Pq(2,2) ,PSPAH(2,2) ,PMNCHD(2 ,2) ,PAREA(2 , 2) ,PXCP(2 ,2) ,PYCP(2 ,2) , 

2  PZCP(2.2),PGAMHA(2.2),PYHAT(2.2) ,PEAR(2 ,2) .PLCS(2,2) , 

2  STADMP(JO)  SrrDMPdO.S)  ,EMC0N,WPRI.TPHI,WMELM(4.9),SFELM(4,9.8) 
2  REELM(4,9.8),PEELM(4,9,8) ,FEELM(4 ,9 ,8) , HEELM(4 , 9 , 8) .BEELM(4,9,8 
2  EKWM,EKSF(8.8) ,EHRE(8) . ENPE(8) , EfIFE(8) , ENHE(8) , EKBE(8) , 

2  ENEMV(8,8) .ENRL(8) , ENPL(8) ,ENFL(8) ,ENHL(8) ,EKSL(8) ,ENBL(8) . 

2  EHSHP(8,8) ,RELM(4,9) ,ITS(25 ) , RD(25) , EDDY(8 ,25) , RGB(26) 

REAL  RDBLK(2692) 

EQUIVALENCE  (PSUR(l) ,RDBLK(1)) 

COMMON  /SEVERE/  IRSIND , RSINDX .NSWIKD .SWINDX , RSVTOE, RV ,RH 
REAL  RSIKJX(14) .SWINDX(S) ,RSVT0E(402) 

INTEGER  RV(13) .RH(13) 

COMMON  /SMPSYS/  FIS , AS .SIS , SOS , SDS .HALOS , DEV ,PRN , SMPPS , SMPIS , 

2  SMPOS . SMPDS . SHPTYPS .SHIPS . VARS . CYCLS .TITLES . OPTION . LSIS .LSOS , 

2  LSDS .LHALDS . LDEV . LPRN . LSMPPS . LSMPIS . LSMPOS .LSMPDS . LSHPTYPS , 

2  LSHIPS.LTITLES 
CHARACTER* 160  AS 

CHARACTER*80  FIS . SIS  .  SOS . SDS . TITLES 

CHARACTER*20  HALOS . DEV . PRN . SMPPS . SMPIS . SMPOS , SMPDS , SHPTYPS 
CHARACTER  SHIPS*6 , VARS*2 ,CYCLS*2 
INTEGER*2  OPTION 

COMMON  /STATE/  LAT. VRT.LO ADS, ADDRES. SALT. HEAD, EXROLL. BKEEL 
LOGICAL  LAT . VRT , LOADS . ADDRES , SALT .HEAD , EXROLL , BKEEL 

COMMON  /STELEM/  STELEM 
COMPLEX  STELEM(4,9,2S0) 

COMMON  /TELEM/  TELEM 
COMPLEX  TELEM (4, 9, 10) 

COMMON  /TWOD/  YY,  ZZ,  ENN,  ISTA 
INTEGER  ISTA 

REAL  YY(10,25) ,ZZ(10,25) ,ENN(4, 10 ,25) 

COMMON  /WGHTS/  WTDL.NORM 
REAL  WTDLdO, 25)  ,N0RM(4, 10,25) 

CHARACTER*20  DS ,TS ,ES ,T1S ,T2S 


*  START 


•  8st  underflow  to  zero 

*  CALL  UNDERO  (  TRUE. ) 

CALL  UNDFL  ( .TRUE.  ) 

AS=’CLS’ 

CALL  SYSTEM  (AS) 

CALL  PRELIM 

CALL  RDSMPSYS 

FIS  -  SOSd:LSOS)//’.TEX' 

OPEN  (TEXFIL.FILE=FIS,FORM= 'FORMATTED ’ , STATUS^ ' UNKNOWN ’ ) 


AS  =  '(/19X."STAItDARD  SHIP  MOTIOH  PROGRAM,  SMP93’726X, 
2  ’"FOR  PERSONAL  COMPUTERS")’ 

WRITE  (*,AS) 

WRITE  (TEXFIL.AS) 

AS  =  ’(/28X,"DTRC  CODE  1661")’ 

WRITE  (*,AS) 

WRITE  (TEXFIL.AS) 


AS  =  ’l//28X,"DATE  =  ",A20)’ 
WRITE  /‘.ASI  DS 
WRITE  (TEXFIL.AS)  DS 

CALL  TIME  (TS) 

T1S=TS 

AS  =  '(/28X,"TIME  =  ".A8)’ 
WRITE  (*,AS)  TS 
WRITE  (TEXFIL.AS)  TS 

AS  =  ’  (//2X , "Ruiming  -  ")’ 
WRITE  (*,AS) 

WRITE  (TEXFIL.AS) 

AS  =  ’(//"  CALL  INPUT")’ 
WRITE  (*.AS) 

WRITE  (TEXFIL.AS) 

CALL  INPUT 

CALL  TIME  (T2S) 

CALL  ELTIME  (T1S,T2S) 
T1S-T2S 

IF  (OPTH  .Eq.  1)  GO  TO  10 

AS  =  ’(//"  CALL  REGWAV")’ 
WRITE  (•.AS) 

WRITE  (TEXFIL.AS) 

CALL  REGWAV 

CALL  TIME  (T2S) 

CALL  ELTIME  (T1S,T2S) 
T1S=T2£ 

AS  =  ’(//"  CALL  IRGSEA")’ 
WRITE  (*,AS) 

WRITE  (TEXFIL.AS) 

CALL  IRGSEA 

CALL  TIME  (T2S) 

CALL  ELTIME  (T1S,T2S) 
T1S=T2S 

AS  =  ’(//"  CALL  OOTPUT")’ 
WRITE  (♦.AS) 

WRITE  (TEXFIL.AS) 

CALL  OUTPUT 

CALL  TIME  (T2S) 

CALL  ELTIME  (TlS,T2S) 


•  QUIT 


10  CONTINUE 


’// 
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AS  e  »f//2X/Tinish«d  !  *')» 

WRITE  (♦,AS) 

WRITE  (TEXFILpAS) 

CALL  TIME  (ES) 

CALL  ELTIME  (TS.ES) 

CLOSE  (UNIT=TEXFIL) 

CLOSE  (U«IT=IPRIH) 

STOP 

END 

C  DECK  SOLVE 

SUBROUTINE  SOLVE  (K,COFF.EXC,MOTN,UL,IP,IPRIN) 

*  This  routine  obtains  a  solution  of  the  lateral  or  vertical 

*  equations  of  motion. 

*  V.G. MEYERS.  DTNSRDC,  072977 

COMPLEX  COFF.EXC.MOTH.UL 
INTEGER  H.IP 

DIMENSION  COFFCN.H) .EXC(N) .MOTN(N) ,UL(N,N) 

DIMENSION  IP(N) 

CALL  CDCOMP(N.N.COFF.UL.IP) 

IF  (IP(N)  .EQ.  0)  WRITE  (IPRIN.IOOO) 

1000  format  (42H  SOLVE  —  PROGRAM  STOP.  MATRIX  SINGULAR.) 

IF  (1P(N)  .EQ.  0)  STOP 

CALL  CSOLVE(N.N.UL,EXC.MQTN,IP; 

RETURN 

END 

C  DECK  SPFIT 

SUBROUTINE  SPFIT  (X,  Y,  ELEMS,  NPTS) 

*  SPFIT  created  from  SPLINE  E  N  HUBBLE  JUNE  19 

*  fits  cubic  non-parametric  spline  segments 

*  to  set  of  real  data  points 

*  INPUTS 

*  X  =  array  of  real  independent  variables 

*  Y  -  array  of  real  dependent  variables 

*  NPTS  =  number  of  (X,Y)  data  points 

*  RETURN 

*  ELEMS  =  array  of  (NPTS^l)  segments  in  following  form 

*  (  Yd).  D(I).  Y(I+1).  D(I  +  1)  )  ,  where 

*  D  =  array  of  second  derivatives  at  data  points 

*  arrays  A.B.C  are  mainly  sub  diag. .  diagonal,  and  super  diag. 

*  D  array  is  the  right  hand  side  of  matrix  equation 

*  second  derivatives  at  nodes  are  placed  in  D  array  after  solution 

*  solution  technique  is  gaussiar  elimination 

*  boundary  conditions  set  by  extrapolation  of  second  derivatives 

COMMON  710/  SYSFIL.POTFIL.COFFIL.LCOFIL.ICARD.TEXFIL.IPRIN. 

2  SCRFIL.HPLFIL.LRAFIL.ORGFIL.RAOFIL.RMSFIL.SEVFIL.SPDFIL. 

2  SPTFIL.LACFIL.LAEFIL 

INTEGER  SYSFIL.POTFIL.COFFIL.LCOFIL.ICARD.TEXFIL.IPRIN. 

2  SCRFIL.HPLFIL.LRAFIL.ORGFIL.RAOFIL.RMSFIL.SEVFIL.SPDFIL. 

2  SPTFIL.LACFIL.LAEFIL 

DIMENSION  X(NPTS) . Y(NPTS) , ELFMS(4 . NPTS) 

DIMENSION  A(IOO).  B(lOO).  C(lOO).  D(lOO) 

N  =  NPTS 
NM  =  N  -  1 

NL2  =  K  -  2 

DO  50  I:=2.N 

IF  (X(I)  .GT.  X(I-l))  GO  TO  SO 
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WRITE  (IPRIH,888)  X(1-1),X(I) 

GO  TO  88888 
SO  COITIBUE 

IF  (H  .LE.  100)  C-0  TO  100 

WRITE  (IPRIH.999) 

I  =  100 

100  COHTIKUE 

IF  (W  .GT.  2)  GO  TO  126 
D(l)  =  0.0 
D(2)  =  0.0 
GO  TO  376 
125  CDMTIIUE 

IF  (H  .GT.  3)  GO  TO  160 

YDD  =  2.*((X(3)-X(2))*Y(1)+(X(2)-X(1))*Y(3)~(X(3)-X(1))*Y(2)) 
2  /((X(3)-X(2))*(X(2)-X(1))*(X(3)-X(1))) 

0(1)  =  YDD 
D(2)  =  YDD 
D(3)  =  YDD 
GO  TO  376 
150  COBTIltUE 

DO  200  1=1,1 
A(I)  =  0.0 
B(I)  =  0.0 
C(I)  =  0.0 
D(I)  =  0.0 
200  COHTIHUE 

*  set  up  matricesCa  tridiagona-l  structure) 

A(l)  =  (X(3)-X(2))/(X(3)-X(i)) 

C(l)  =  2.0 
B(l)  =  1.0  -  A(l) 

D(l)  =  6.0*((Y(3)-Y(2))/(X(3)-X(2))-(Y(2)-Y(1))/ 

1  (X(2)-X(l)))/(X(3)-X(lb 
H  =  X(3)  -  X(2) 

DO  260  1=3, HLl 
HP  =  X(I+1)  -  X(i) 

C(I)  =  HP  /  (H+HP) 

B(lj  =  2.0 
A{I)  =  1.0  -  C(I) 

D(I)  =  6.0*((Y(I+1)-Y(1))/HP-(Y(I)-Y(I-1))/H)/(HP+H) 

H  =  HP 

250  CONTINUE 

*  set  boundary  conditions 

C(2)  =  (X(2)-X(1))/(XC3)-X(2)) 

A(2)  =  1.0 
B(2)  =  -1.0-C(2) 

D(2)  =  0.0 

C(2)  =  -A(2)»A(1)/B(1)  C(2) 

C(N)  =  (X(N)-X(N-l))/(X(N-l)-X(N-2)) 

A(N)  =  -1.0  -  C(N) 

B(N)  =  1.0 
D(N)  =  0.0 

*  solve  equations 

II  =  1 

DO  300  1=1, NL2 

11  =  I  +  1 

12  =  1  +  2 

AUGH  =  ABS  (B(I)) 

IF  (AUGH  .LT.  l.OE-06)  GO  TO  276 
CONST  =  A(I1)  /  B(I) 

B(I1)  =  B(I1)  -  CONST»C(I) 

D(I1)  =  D(I1)  -  CONST*D(I) 

IF  (I  .NE.  NL2)  GO  TO  300 
A(Nj  =  A(H)  -  C(N)*C(I)  /  B(I) 

D(N)  =  D(N)  -  C(N)*D(I)  /  B(I) 

GO  TO  300 
275  CONTINUE 


II  S  1  ■(  1 

D(I)  =  D(I)  /  C(I) 

D(I1)  =  D(Il)  -  B(H)0(1) 

B(ll  =  A(ll) 

A(I1)  =  0.0 

D(I2  =  D(12)  -  A(I2)*D(I) 

A(I2)  =  0.0 

IF  (I  .HE.  HL2)  GO  TO  300 
A(H)  =  C(H) 

300  COKTIHUE 

DET  =  B(HL1)*B(H)  -  C(RLl)*A(H) 

STORE  =  D(H) 

D(*)  »  (B(NL1)*D(H)  -  D(NL1)*A(N))  /  DET 
D(HLl)  =  (D(HL1)*B(N)  -  C(NL1)*ST0RE)  /  DET 
IP  =  0 

DO  360  1=2, HL2 
J1  =  N  -  I 

IF  (JI  .EQ,  IP)  GO  TO  3.60 
IF  (JI  .EQ.  II)  GO  TO  325 
D(JI)  =  (D(JI)-C(JI)*D(JI+1))/B(JI) 

GO  TO  350 
325  COHTIHUE 

IP  =  JI-1 
STORE  =  D(JI) 

Dpi)  =  D(IP) 

D(IP)  =  (STORE  -  C(IP)*D(JI+1))/B(IP) 

350  CONTIHUE 

D(l)  =  (D(l)  -  A(1)*D(3)  -  C(l)*D(2))  /  B(l) 

•  up  spline  segments 

376  COHTINUE 

DO  400  1=1, HLl 
II  =  I  +  1 
ELEMS(l.I)  =  Y(I) 

ELEMS(2,I)  =  D(I) 

ELEMS(3,l)  =  y(Il) 

EI.EKSU,I;  =  D(ll) 

400  CONTINUE 

99999  CONTINUE 

RETURN 

88888  CONTINUE 

STOP 

888  FORMAT  (’0  SPFIT  —  X  VALUES  NOT  ASCENDING’,  2E16.8) 

999  FORMAT  (’0  SPFIT  “  NPTS  EXCEEDS  100.  ONLY  99  SEGMENTS  RETURNED’) 

END 

C  DECK  SPINT2 

SUBROUTINE  SPINT2  (SEGS,  HSEGS ,  AREA,  NS,  TS ,  NE,  TE,  IWAY) 

*  evaluates  the  integral  ol  a  lunction  given  as  a  parametric  spline 


INPUTS 

SEGS  =  spline  segements  generated  by  SPLNT2 
NSEGS  =  number  of  spline  segments 

NS  =  index  of  segment  for  start  of  integration 

TS  =  t  parameter  for  start  of  integration 

HE  =  index  of  segment  for  end  of  integration 

TE  =  t  parameter  for  end  of  integration 

IWAY  =  -1  ,  if  integral  of  y  dx  is  to  be  evaluated 

IWAY  =  0  ,  il  integral  of  x  dy  is  to  be  evaluated 


RETURN 

AREA  =  INTEGRAL  (AREA  UNDER  CURVE)  FROM  (NS+TS)  TO  (NE+TE) 


COMMON  /lO/  SYSFIL,POTF1L,COFFIL,LCOFIL,ICARD.TEXF1L,IPRIN, 
2  SCRF1L,HPLFIL,LRAFIL,0RGFIL,RA0FIL,RMSF1L,SEVFIL,SPDFIL, 

2  SPTF1L,LACFIL,LAEFIL 

INTEGER  SYSFIL,PoTFIL,CCFFIL,LCOFIL,ICARD,TEXFIL,IPRIN, 


I 
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I 


2  SCRFIL . HPLFIL , LRAFIL , ORGFIL , RAOFIL .RMSFIL , SEVFIL , SPDFIL , 

2  sptfil.lacfil.laefil 

DIMENSIOB  SEGS(8,»SEGS) ,CC(14) ,T(2) ,A(2) 

AREA  *  0.0 

IF  (HS.GE.l  .AID.  IS.LE.ISEGS)  GO  TO  100 
WRITE  (IPRIH,991)  IS 
GO  TO  99999 
100  COHTIIUE 

IF  (ME.GT.NS  .AID.  HE.LE.NSEGS)  GO  TO  IBO 
WRITE  (1PRIH,992)  HE 
GO  TO  99999 
160  COHTIHUE 

IF  (TS.GE.0.0  .AND.  TS.LE.1.0)  GO  TO  200 
WRITE  (1PRIN,993)  TS 
GO  TO  99999 
200  CONTINUE 

IF  (TE.GE.0.0  .AND.  TE.LE.1.0)  GO  TO  250 
WRITE  (IPRIN.994)  TE 
GO  TO  99999 
250  CONTINUE 

IF  (IWAY  .EQ.  0)  GO  TO  350 
K  =  1 
J  =  2 
GO  TO  400 
350  CONTINUE 

K  =  2 
J  =  1 

400  CONTINUE 

J2  ■  J  +  2 
J4  =  J  +  4 
J6  =  J  ♦  6 
K4  =  K  +  4 
K8  =  K  +  8 
KlO  =  K  +  10 
DO  600  I=NS,NE 
T(l)  =  0.0 
T(2)  =  1.0 

IF  (1  .EQ.  NS)  T(l)  =  TS 

IF  (I  .EQ.  NE)  T(2)  =  TE 

CALL  CUBC02  (SEGSCl.I),  CC) 

DDl  =  (CC(J)*CC(Ke))  /  6.0 

DD2  =  (CC( J)*CC(K10)  +  CC(J2)*CC(K8))  /  5.0 

DD3  =  (CC(J  )*CC(K4)  +  CC( J2)*CC(K10)  +  CC( J4 ) *CC(K8) )  /  4.0 

DD4  =  (CC(J2)*CC(K4)  +  CC ( J4 )'>CC (KlO)  +  CC(  J6 ) *CC(K8 ) )  /  3.0 

DD5  =  (CC( J4)*CC(K4)  +  CC ( J6) *CC (KlO) )  /  2.0 

DD6  =  CC(J6)*CC(K4) 

DO  650  L=1 .2 

IF  (T(L)  .GT.  0.0)  GO  TO  450 
A(L)  =  0.0 
GO  TO  550 
450  CONTINUE 

IF  (T(L)  .LT.  1.0)  GO  TO  500 
A(L)  =  DDl  +  DD2  +  DD3  +  DD4  +  DD6  +  DD6 
GO  TO  550 
500  CONTINUE 

A(L)  =  (((((  DDl  *  T(L)  +  DD2)  ♦  T(L)  +  DD3)  •  T(L)  +  DD4) 

2  •  T(L)  +  DD6)  •  T(L)  +  DD6)  •  T(L) 

550  CONTINUE 

AREA  =  AREA  +  A(2)  -  A(l) 

600  CONTINUE 
99999  CONTINUE 


RETURN 


991 

FORMAT  ( 

»0 

SPINr2 

—  NS  =’ 

.  IS.  * 

OUT 

OF  RANGE’  ) 

992 

FORMAT  ( 

^0 

SPINT2 

—  NE 

.  IS,  ’ 

OUT 

OF  RANGE'  ) 

993 

FORMAT  ( 

*0 

SPINT2 

--  TS 

.  E12.5, 

1 

OUT  OF  RANGE’ 

994 

FORMAT  ( 

•0 

SPIKT2 

—  TE  =  ’ 

,  E12.5, 

OUT  OF  RANGE’ 

END 
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C  DECK  SPIHTG 

SUBROUTIHE  SPIHTG  (XA,  XB»  X,  HPTS,  ELKMS.  A,  CINTG,  SINTG) 

♦  SPINTG  created  from  SUMSPL  and  SPLVIT 

♦  evaluates  the  integral  ot  a  real  function  defined  by 

♦  non-paraiaetric  spline  segments 

*  INPUTS 

♦  XA 

*  XB 

♦  X 

^  KPTS 

*  ELEMS 
A 

^  RETURNS 

•  CIHTG  =  INTEGRAL  OF  FfX)  *  COS(A*X) 

•  SINTG  =  INTEGRAL  OF  F(X)  ♦  SIN(A*X) 

*  IF  A  =  0.0  ,  THEN  CINTG  =  INTEGRAL  OF  F(X),  AND  SINTG  =  0. 
MhENSIOM  X(NPTS) ,ELEMS(4,NFTS) 


=  lower  limit  of  i.itegraticii 
=  upper  limit  of  integration 
=  array  of  independent  variables 
=  number  of  values  in  x-array 

=  non-pareonetric  spline  segments  generated  by  SPFIT 
=  constant  for  specific  integral  to  be  evaluated 


.ir",  =  0.0 
j::  »g  =  0.0 

CALL  SPLVAL  (X.  KPTS,  ELEMS,  >A,  YA ,  SA,  lA) 

CALL  SPLVAL  (X,  KPTS,  ELEMS,  XU,  YB,  SB.  IB) 

A2  =  A  ^  A 
A3  =  A  ♦  A2 

A4  c  A  *  A3 
DO  500 

IF  (I  .GT.  lA)  GO  TO  100 
XI  *  XA 
X2  =  X(l+1) 

Yi  =  YA 

Y2  =  ELEMSO.I) 

SI  =  SA 

-  r  T  rwc  r  A  t  ^ 

GO  TO  300 
:00  CONTINUE 

IF  (I  .LT.  IB)  GO  TO  200 
XI  =  X(I) 

X2  =  XB 

Yl  ^  ELEMSd.I) 

Y2  •-  YB 

51  =  ELEMS(2,I) 

52  =  SB 
GO  TO  300 

200  CONTINUE 

XI  =  X(I) 

X2  =  X(I+1) 

Yl  =  ELEMS(l.I) 

Y2  -  ELEMS (3, I) 

51  -  ELEflS(2,I) 

52  =  FLLr1S(4,I) 

300  CONTINUE 

XX  -  t2  -  XI 

If  (a' .NE.  O.C)  go  to  400 

SEGINT  -■  (Y2+Y:)  •  XX  /  2.  -  (S2hS1)  *  XX**3  /  24. 

CINTG  =  CINTG  +  SEGINT 
on  TO  f'OO 
400  CONTINUE 

2AA  --  (S2-S1)  /  (XX  *  6.  ) 

EBB  ==  SI  /  2. 

zee  =  (Y2-Ya)  /  XX  -  (32  +  2. •El)  * 

AXX  -  A  •»  XX 
E  =  SIN  (AXX'' 

F  CGE  (AXX) 

XX2  XX  *  XX 
XX3  -  XX  XX2 

P  (3.*A2*XX2  -  6.)  /  A4 

Q  =  (A2*XX3  *  O.-XX)  /  A3 


XX  /  6. 


kkt  ■=  F*P  +  E*Q  +  6,/A4 

AA2  =  E*P  -  F*q 

PP  =  (2.*XX)  /  A2 

QQ  =  (A2*XX2  -  2.)  /  A3 

BBl  =  F*PF  +  E*QQ 

BB2  =  E*PH  -F^QQ  -  2./A3 

XXA  =  7.x  /  A 

CCl  =  (F-l.)/A2  +  E*XXA 

CC2  =  E/A2  -  F»XXA 

DDl  =  E/A 

DD2  =  (l.-F)/A 

AXl  =  A  •  XI 

VV  =  cos  (AXi) 

UU  SIB  UXl) 

PPP  =  (AAl^ZAA  +  BB1*ZBB  +  CCl^ZCC  +  DD1*Y1) 

QQC)  =  UA2*2AA  ♦  BB2»ZBB  +  CC2*ZCC  +  DD2*Yi) 

SISEG  =  UU*PPP  +  VV*QQ3 

Cl.SEG  =  VV*PPP  -  UL'*Qqq 

CIRTO  =  CINTG  +  CISEG 
SINTG  =  SIHTG  +  SISEG 
600  COSTIBUE 

P.ETURB 

END 

C  DECK  SPLNAR 

SUBROUTINE  SPLNAR  (P , NPTS . SPAREA , PSEGS , NS) 

COMMON  /lO/  SYSFIL.POTFlL.COFFIL,LCOFIL,lCARD,TEXFIL,IPRIN , 

2  SCRFIL,HPLFIL,LRAFIL,ORGFIL,RAOFIL,HMSFIL,SEVFIL.SHDFIL. 

2  SPTFIL.LACFIL.LAEFIL 

INTEGER  SYSFIL.POTFIL.COFFIL.LCO'^IL.ICARD.TEXFIL.IPRIN, 

2  SCRFIL.HPLFIL,LRAFIL..ORGFIL,RAQFIL,RMSFIL,SEVFIL,SPDFIL, 

2  SPTFIL.LACFIL.LAEFIL 

D1MENSI''S  P'’?  ■'0)  p':Er:‘C/'8  9) 

DIMENSION  NDi(2r.EN5l(2^2r 

DATA  ZERO, ONE  /O. 0,1.0/ 

DATA  NDI.ENDI  /2*1, 4*0.0/ 

CALL  SPLNT2  ( PSEGS , P , NPTS , NDI . ENDI) 

CALL  SPINT2  (PSEGS, NS, SPAKEA, 1 .ZERO, NS, ONE, 0) 

RETURN 

END 

C  DECK  SPLNFT 

SUBROUTINE  SPLNFT 

•  routine  usaa  to  write  oilattn  to  HP1.FIL  for  graphics 

COMMON  /DATINP/  OPTN , MOTN . BSCFIL . VLACPR , RAOPR , RLDHPR .DISPLMT, 

2  LRAOPR.ADRPR.ORGOPTN ,GMN0M,KG.STATN(26) ,NS0FST(26) . 

2  NLEWF(26),HLFBTH( 10,25) .WTRLNE( 10,25) , BLF.WF(25) , TLEUF(2S) , 

2  AREALF(26) ,NPTLOC.PTNUMB(lO) .PTNAME.XPTLOC( 10) . YPTLOC(IO) , 

2  ZPTLOC(IO) ,NBB.FBNUMB(10).FBNAME.XPTFBD(10) ,YPTFBD(10), 

2  ZPTFBD(IO) ,FBCODE( 10 ) , FbrfPE , RDOT( 10 ) . VKDES , FNDES , 

2  STATNM.STATIS 

CHARACTER*4  PTNAMECB, 10) ,FBNAME(B . 10) , STATNHC5 ) , FBTYPEC 3 , iO) 
INTEGER  OPTN .KOTN ,BSCFIL,VLACPR.RAOPR,ADRPR,RLDMPH,FBCODE, 

2  FBNUMS,PTNUMD,ORGOPTH 
REAL  KG 

COMMON  /GEOM/  X  .  N.ETATN  .  Y  .2 .  N0F5ET  ,LPP  ,  BEAM  ,  DRAFT ,  LCF  , 

1  VCG,GM.DELGM,NEBLA .KPITCH , KROLL . KYAW , KYAWRL . AWP . VCB , FBDX ,FBDY . 

2  FBDZ, NFREBD.XPT.YPT.ZPT, NPTS .LCb.CML.ASTAT, BSTAT, TITLE, MASS, 

2  DISPLM.IPITCH.IROLL. lYAW.IYAURL.CHEAVE.CPITCH.CHEAPl ,CROLL, 

2  AREAMX .USURP, GIRTH , FBDZ VDBLWL.TLCB 

INTEGER  NSTATN , NOFSET( 25 ) , KFREBD , NPTS 
CHARACTEh*4  TITLE(20) 

REAL  X(25) ,Y(10.25) .Z(10,25) ,F3DZV(8, 10) .LPP , BEAM .DBLWL , TLCB , 


2  DRAFT.LCF.VCG.GM.DELGM.IEBLA.KT-ITCH.KROLL.KYAW.KYAWRL.AWP.VCB, 

2  FBDX(10),FBDY(10)  .FBDZdO)  ,XPT(10)  ,YPT(10)  ,ZPT(  10)  ,LCB , GML, 

4  ASTAT(26) ,BSTAT(2B) . MASS, DISPLM.IPITCH. TROLL, lYAW, 

B  I YAWRL ,  CHEAVE ,  CPITCH  .  CHEAPI ,  CROLL ,  AREAMX ,  WSURF ,  GIRl'H ( 25  ) 

COHMOH  /TO/  SYSFIL,POTFIL,CUFFIL.LCOFIL,ICARD,TEXriL,IPRII, 

2  SCRFIL , KPLFIL , LRAFIL , ORGFIL , RAOFIL ,RHSFIL , SEVFIL , SPDFIL , 

2  SPTF1L,IACFIL,LAEFIL 

I NTEGER  S  YSFIL ,  POTFIL ,  COFFIL .  LCOFIL ,  IC  ARD ,  TEXr  IL ,  irr.IH . 

2  SCRFIL , HPLFIL , LRAFIL , ORGFIL , RAOFIL , RMSFIL , SEVFIL , SPDFIL , 

2  SPTFIL,LACFIL,LAEFIL 

COMH05  /PHYSCO/  II  ,TPI ,PI .PIOT.CEGRAD .RADDEG .VKMETR.METRVK ,GR AV , 
2  RHO . GRU , RHOS ,  RHOF , GMUS  ,  GKOF , FTMETR , PUKITS  , REVSCL 
COMPLEX  II 

CHARACTER*4  PURITS(2) 

REAL  TPI, PI, PIOT, DEGRAD, RADDEG, VKMETR,METRVK,GRAV, RHO, GNU, RHOS. 

1  RHOF.  GNUS,  GRUF.FTMETR 

COMMOR  /SMPSYS/  FIS . AS  .SIS . SOS , SDS , HALOS , DEV ,PRN , SMPPS . SHPIS , 

2  SMPOS  ,  SMPDS ,  SHPTYPS  .  SHIPS  ,  VAF.S ,  CYCLS  .TITLES  .  OPTION  ,LSIS  ,  '.SOS  , 

2  LSDS ,LH ALOS , LDEV , LPRN . LSHPPS , LSMPIS , L5MP0S . LSMPDS .LSHPTYPS , 

2  LSHIPS.LTITLES 
CHARACTER*160  AS 

CHARACTER*80  FIS .SIS . SOS .SDS .TITLES 

CHARACTER*20  HALOS , DEV ,PRN . SMPPS , SMPIS .SMPOS, SMPDS, SHPTYPS 
CHARACTER  SHIPS*6,VARS*2,CYCLS*2 
1NTEGER*2  OPTION 

DIMENSION  P(2,10) ,PSEGS(8.9)  .CC(14) , AY(900) ,AZ(900) , 

2  HFE(10.2B) ,WTR(10,26) ,NDI(2) .ENDI(2.2) 

CHARACTER*C  SNAME(6) 

CHARACTER*80  ATITL 
CHARACTER  STSP*30 

DATA  SNAMF  /  '  YFUD ’ . ’ ZFUD ’ , ’ YAFT ' , ’ ZAFT ’  ,  ’ HLFBTH ’ , ’UTRLNE ’ / 

DATA  NDI.EKDI  /2»1, 4*0.0/ 

DO  30  K=1,NSTATN 
NPTS  =  NSOFST(K) 

DO  10  1=1, NPTS 


I.K) 

=  HLFBTH( 

.I.K) 

a,K) 

=  WTRLNEi 

:i.K) 

10  CONTINUE 

IF  (NPTS.EQ.  1  .AND.  STATN(K) .GT. 10.0)  HFB(1,K)  =  -  HFB(l,K) 

NPT  =  10  -  NPTS 

IF  (NPT  .EQ.  0)  GO  TO  30 

DO  20  1=1. NPT 

IPT  ^  I  +  NPTS 

HFB(IPT,K)  =  HFBCNPTS.K) 

WTR(IPT.K)  =  WTRUJFTS.K) 

20  CONTINUE 
30  CONTINUE 

DX  =  LPP/20 

WRITECSTSP.IOOO)  DX , PUNITS ( 1 ) ,PUNITS(2) 

1000  FORMAT  ( 'STATION  SPACING  =’, F6 . 2 , IX  ,  A4 , A2) 

WRITECATITL.  1010)  TITLE 
1010  FORMAT  (20A4) 


•  open  file  lor  hull  ollset  plotting 

HPI* 

OPEn’(UNIT=HPLFIL.FILE=FIS,STATUS= 'UNKNOWN ’ ) 

WRITE  (HPLFIL, 1020)  ATITL 
1020  FORMAT  (A80) 

WRITE  (HFLFIL. 1030)  STSP 
1030  FORMAT  (A30) 


NOS  =  10 
L  =  0 


KOUKT  -  0 

40  IK  -  i.DUHT  +  1 

DO  100  K=IKMSTATM 
KOUHT  =  KOUHT  ♦  1 
ms  «  ISOFST(K) 

IF  (HPTS  .EQ,  1)  GO  TO  100 
L  =  L  +  1 
AY(L)  =  0. 

AZ(L)  =  tfTR(»OS,K)  -  DRAFT 

nn  Fn  j=i,ios 

IF  (STATI(K)  .CT.  -0.0)  HFB(J.K)  =  -  HFB(J,K) 

WTRO.K)  *  VTRCJ.r':  DRAFT 
P(l.J)  =  HFBp.K) 

P(2,J)  »  WTR(J,K) 

SO  COITIIUE 

IS  «  MOS  -  1 

CALL  SPLHT2  (PSEGS  .  P  ,10$  .NDI  .EKDI) 

DO  70 

CALL  CUBC02  (PSEGS(  1 .  J) ,CC) 

NT  =  7 

DT  «  1./(RT-1) 

DO  60  1=1  , NT 
L  =  L  +  1 
T  =  (I-1)*DT 
T2  =  T*T 
T3  =  T^T2 

AY(L)  =  CC(1)*T3  +  CC(3)*T2  +  CC(6)*T  +  CC(7} 

AZ(L)  =  CC(2)*73  +  CC(4)*T2  +  CC(6)*'t-  ♦  CC(8) 

60  CONTINUE 
70  CONTINUE 

IF  (STATKK)  .EQ.  10.0)  GO  TO  110 
100  CONTINUE 

WRITE  (HPLFIL,1040)  SKaME( 3 ) , SNAME(4 ) 

WRITE  (HPLFIL.IOSO)  L 
DO  210  I-l ,L 

WRITE  (HPLKIL,1060)  AY(i;,AZ(l) 

210  CONTINUE 
GO  TO  120 

110  WRITE  (RPLFIL.1040)  SNAME(  1 )  ,SNAME(2) 

1040  FORMAT  (A6,4X,A6) 

WRITE  (HPLFIL,1050)  L 
1050  FORMAT  (216) 

DO  220  1=1 ,L 

WRITE  (HPLFIL.loeO)  AY(I>,A2(I) 

1060  FORMAT  (10F7.2) 

220  CONTINUE 
L  =  0 
GO  TO  130 

120  WRITE  (HPLFIL,1040)  SNAME(6) ,SNAME(6) 

WRITE  (HPLFIL.IOSO)  NOS.NSTATN 
DO  230  K=1 .NSTATN 

WRITE  (HPLFIL,1060)  (liFBCl  ,K)  ,1  =  1  ,NOS) 

WRITE  (HPLFIL,1060)  (WTR( I  ,K) . 1  =  1 . NOS) 

230  CONTINUE 

130  IF  (KOUNT  .LT.  NSTATK)  GO  TO  40 

CLOSE  (UNIT=HFLFIL) 

RETURN 

END 

C  DECK  SPLNT2 

SUBROUTINE  SPLNT2  (  SEGS,  P,  NP.  NDI,  ENDI  ) 

♦  SPLNT2  created  from  SPLI/T  (  NAVSEC-NOOO  )  -  A  M  REED  JULY  1976 

♦  litB  cubic  parametric  stjUii©  segments  through  eet  of  data  points 

♦  INPUTS 

♦  P  =  array  of  (X,Y)  points 
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IP 

s 

number 

IDI(l) 

s 

1. 

if 

IDI(l) 

s 

2. 

if 

IDI(2) 

s 

1. 

if 

IDI(2) 

2. 

if 

ENDKl.l) 

E 

DX/DT 

ESDI (2.1) 

= 

DY/DT 

EHD1(1,2) 

= 

DX/DT 

EIDI(2,2) 

= 

DY/DT 

oi  points 

initial  slope  not  specified  at  first  point 

initial  slope  is  specified  at  first  point 

initial  slope  not  specified  at  final  point 

initial  slope  is  specified  at  final  point 

at  first  point  —  not  required  if 

at  first  point  —  not  required  if  HDI(1)=1 

at  final  ;:^oint  --  not  requ-^red  if  NDI(2)s-i 

at  fin2Ll  point  —  not  required  if  NDI(2)  =  l 


RETURNS 

SEGS  a  array  of  (HP-1)  segments  in  endpoint/tangent  lorro 

X(I),Y(I).DX(I).l)Y(I),X(I+l>.Y(I+l)  ,DX(I  +  1).0Y(I+1) 


COMMOl  /lO/  SYSFIL.POTFIL.COFFIL,LCOFIL,ICARD,TEXFIL,IPRIN, 
2  SCRFIL,HPLFIL,LRAFIL,ORGFIL,RAOFIL,RMSFlL.SEVFIL,SPDFIL, 

2  SPTFIL,LACFIL,LAEFIL 

INTEGER  SYSFIL,POTFIL.COFFIL.LCOFIL,ICARD,TEXFIL,IPRIK, 
7  SCRFIL.HPLFIL.LRAFIL.ORGFIL,RAOFIL.RMSFIL,SEVFIL,SPDFIL, 

2  SPTF1L,LACFIL,LAEFIL 


DIMENSION  SEGS(8,NP),P(2.NP) .KDI(2) .ENDI(2,2) 

DIMENSION  DS(2,70) ,INDEX(70) ,R1(70) .R2(70) ,R3(70) ,R4(70) , 
2  CS(70),T10(2),T21(2) 


DATA  TIO  /  1.0,  C.O  /. 

1  T21  /  2.0,  1.0  / 

«  initialize  segs  array,  determine  deltas,  chord  lengths  and 

*  indices  of  non-zero  length  segments. 

K  =  1 
N  =  NP 
HI  =  H  -  1 

IF  (K1  .EE.  69)  GO  TO  lOOC 
HI  =  69 

WRITE  (IPRIH.999) 

1000  CP  0.0 

DO  1120  J  =  1,  HI 
INDEX(J)  =  J 
C  =  0.0 

DO  1100  I  -  1.  2 
PI  »  P(I,J) 

P2  =  P(I.J+1) 

DELTA  5  P2  -  PI 
C  =  C  +  DELTA*DELTA 
DS(I,M)  =  3. ©♦DELTA 
SEGS(I,J)  =  PI 
SEGS(I+4,J)  =  P2 
SEGS(I  +  2,J)  =  DELTA 
SEGS(I+6,J)  =  DELTA 
1100  CONTINUE 

IF  (C  .LE.  0.000001)  GO  TO  1110 
C  =  SQRT(  C  ) 

CS(M)  =  C 
R1(M)  =  C 
R3(M)  *  CP 
INDEX(M)  =  J 
H  =  M  ^  1 
CP  -  C 

1110  CONTINUE 
1120  CONTINUE 
N  M 
M  =  H  -  1 

*  check  for  degenerate  case  (only  2  points) 

IF  (N  .GT.  2)  GO  TO  1300 

*  degenerate  case.  set  single  segment  tangent  vectors. 
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J  =  IIDEX(l) 

C  =  CS(1) 

DO  1240  1=1,2 


IF 

NDI(1 

)  .GT. 

1  )  SEGS 

:it-2,J)  =  ENDI(I,1)*C 

IF  ( 

:  NDI(2 

)  ;GT. 

1  )  SEGSI 

!i+6,J)  =  ENDI(1,2)*C 

1240  COKTIBUE 

GO  TO  99999 
1300  COITIIUE 

*  tat  end  conditions  of  tri-di&gonal  n&trix 

I  =  HDICl) 

R2(l)  =  T21C:) 

R3(l)  =  TIO(I) 

1  =  irDI(2) 

R1(R)  =  TIO(I) 

T2  =  T21(l) 

•  solve  matrix  lor  tangent  vectors 

DO  1340  1=1,2 
R4(l)  =  DS(1,1)/CS(1) 

IF  (  MDI(l)  .GT.  1  )  R4(l)  =  EHD1(I,1) 

DO  1316  J  =  2.  M 
R  =  CS(J-1)/CS(J) 

R2(J)  =  2.0*(CS(J)  +  CS(J-l)) 

R4(J)  =  DS(I,J)*R  +  DS(I,J-1)/R 
1315  COHTIHUE 

R2(N)  =  T2 

R4(N)  =  DS(I,M)/CS(M) 

IF  (NDI(2)  .GT.  1)  R4(N)  =  ERDI(I,2) 

DO  1330  J  =  1 ,  .M 
R  =  R1(J+1)/R2(J) 

R2(J+1)  =  R2(Jtl)  -  R3(J)*R 
R4(J+1)  =  R4(J+1)  -  R4(J)*R 
1330  CONTINUE 

DN  =  R4(N)/R2(I) 

DO  1336  L  =  1,  M 
J  =  H  -  L 
K  =  IHDEX(J; 

DJ  =  (R4(J)  -  R3(J)*DN)/R2(J) 

SEGS(I+2,K)  =  DJ*CS(J) 

SEGS(I+6,K)  =  D»I»CS(J) 

DU  =  DJ 

1336  CONTINUE 
1340  CONTINUE 
99999  CONTINUE 

RETURN 

999  FORMAK’O  SPLNT2  —  KP  EXCEEDS  70.  ONLY  69  SEGMENTS  RETURNED.’) 
END 


C  DECK  SPLVAI. 

SUBROUTINE  SPLVAL  (X,  KPTS,  ELEMS,  XO,  YO,  SO,  lELM) 


SPLVAL  created  Iron  SPLFIT 
evaluates  a  real  ncn-parametr ic  epline 


INPUTS 

X  =  array  of  independent  variables 

NPTS  =  number  ol  values  in  x-array 

ELEMS  =  splina  segments  generated  by  SPFIT 

XO  =  x-vnlue  at  which  spline  is  to  be  evaluated 


RETURNS 

YO  =  F(XO)  =  y-value  evaluated  at  xO 

SO  =  second  derivative  evaluated  at  xO 

lELM  =  index  ol  spline  segment  containing  xO 


orxi 


COMMOW  /lO/  SYSFIL,POTFIL,COFYIL»LCOFIL,ICARD,TEXFIL,IPRII, 

2  SCRFIL,HPLFIL,LRAFIL.ORGFIL.RAOFIL,RMSFlL.SEVFIL,SPDFIL, 

2  SPTFIL,LACFIL»LAEFIL 

INTEGER  SYSFIL , POTFIL , COFFIL , LCOFIL , ICARD , TEXFIL . IPRIH , 

2  SCRFIL.HPLFIL,LRAFlL,ORGFIL,RAOFIL,RMSFIL,SEVFIL.SPDFIL, 

2  SPTFIL,LACFIL.LAEFIL 

DIMENSION  X(NPTS),ELEMS(4,KPTS) 

N  s  NPTS 

IF  (XO.GE.X(l)  .AND.  XO.LE.X(N))  GO  TO  100 
WRITE  (IPRIN,999)  XO 
GO  TO  99999 
100  CONTINUE 

DO  200  1=2, H 

IF  (XO  .GT.  X(I))  GO  TO  200 
GO  TO  300 
200  CONTINUE 

300  CONTINUE 

1  =  1-1 

XX  =  XCI+I)  -  X(I) 

XI  =  XO  -  X(I) 

X2  =  X(I+1)  -  XO 
XX6  =  XX  *  XX  /  6.0 
Y1  =  ELEMS(1,I) 

Y2  =  ELEMS(3,I) 

51  =  ELEMS(2,I) 

52  =  ELEHS(4,I) 

YO  =  (SI  •  X2**3  +  S2  *  Xl**3)  /  (6.0  •  XX)  + 

2  (  (Y1  -  S1»XX6)  ♦  X2  +  (^2  -  S2*XX6)  *  XI  )  /  XX 
SO  =  (SI  *  X2  +  S2  ♦  XI)  /  XX 
lELM  =  I 

RETURN 

99^99  CONTINUE 
STOP 

999  FORMAT  (»C  SPLVAL  --  EXTRAPOLATION  NOT  ALLOWED.  XO  = * ,  E16.8) 
END 


C  DECK  SPPLV2 

SUBROUTINE  SPPLV2  (V.  P,  SEGS,  NSEGS,  PT,  HINT,  TINT,  INT) 


♦  SPPLV2  created  from  LNPLI2  and  LNPLI 

♦  finds  intersection  between  a  curve  defined  by  a  paxainetric  spline 

♦  and  a  plane  defined  by  a  point  and  a  direction  vector 


INPUTS 

ih) 

v(i: 
VC2) 
SEGS 
NSEGS 


X-COORDINATE  OF  POINT  USED  TO  DEFINE  THE  PLANE 

Y-COORDINATE  OF  POINT  USED  TO  DEFINE  THE  PLANE 

X-COMPONENT  OF  VECTOR  PERPENDICULAR  TO  THE  PLANE 
Y-COMPONENT  OF  VECTOR  PERPENDICULAR  TO  THE  PLANE 
SPLINE  SEGMENTS  IN  ENDPOINT-TANGENT  FORM,  FROM  SPLNT2 
HUMBER  OF  SPLINE  SEGMENTS 


RETURNS 

PT(1) 

PT(2) 

NINT 

TINT 

INT 

INT 

INT 

INT 


X-COORDINATE  OF  THE  INTERSECTION 
Y-COORDINATF  OF  THE  INTERSECTION 
INDEX  OF  SEGMENT  IN  WHICH  INTERSECTION  LIES 
VALUE  OF  T  PARAMETER  AT  INTERSECTION 

1,  IF  INTERSECTION  FOUND  aND  WITHIN  TOLERANCE 

2,  IF  INTERSECTION  NOT  WITHIN  TOLERANCE 

3,  IF  NO  INTERSECTION  FOUND 

4,  IF  SEGMENT  LIES  WITHIN  THE  PLANE 


DIMENSION  V(2) ,P(2) .SEGS (8. NSEGS) ,PT(2) ,CC(14) ,U(2) 


EQUIVALENCE  (U1,U(1)),  (U2,U(2)).  (CCl.CC(l)),  (CC2,CC(2)), 
1  (CC3.CC(3)),  (CC4.CC(4)).  (CC5.CC(5)).  (CC6,CC(6)),  (D.DPS) 
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DATA  TOLER,  IHAX  /  0.001,  10  / 

IHT=1 

*  unitize  plane  direction  vector 
CALL  VUJIT2  (U,  S,  V) 

*  determine  the  segment  number  n  vhich  contains  the  intersection 

DO  140  1=1, MSECS 

DPS=0.0 

DPE=0.0 

DO  1000  1=1,2 

DPS  =  DPS  +  (SEGS(I,H)  -  P(I))*U(I) 

DPE  =  DPE  ♦  (SEGS(I+4,K)  -  P(I))*U(I) 

1000  CORTIMUE 

*  check  if  segment  lies  vithin  plane,  if  so,  set  int  and  return. 

IF  (  ABS(  DPS  )  .GT.  TOLER  .OR. 

1  ABS(  DPE  )  .GT.  TOLER  )  GO  TO  130 

INT=4 

GO  TO  99999 
130  COHTINUE 

*  check  if  dot  product  changes  sign  vithin  segment 

NSEG=N 

IF  (  DPS*DPE  .LT.  0.0  )  GO  TO  200 

IF  (  DPS^DPE  .EQ.  0.0  )  GO  TO  145 

140  CONTINUE 

KSEG=NSEGS 
N  =  1 

145  CONTINUE 

*  check  if  intersection  occurs  at  eit).^;x  end  of  line 

T’--0 . 0 

DO  1170  J  =  1,  6,  4 
DIST  =  0.0 
DO  1160  1=1,2 
K  =  I  +  J  -  1 
PT(I)  =  SEGS(K,N) 

DIST  -  DIST  +  (PT(I)-P(I))  •  U(I) 

1150  CONTINUE 

IF  (  ABS(DIST)  .LE.  TOLER  )  GO  TO  1440 
N  =  MSEC 
T  =  1 .0 

1170  CONTINUE 

^  no  intersection  found,  set  int  and  return. 

IRT=3 

GO  TO  99999 
200  CONTINUE 

*  fetch  segment  polynomial  coefficients 
CALL  CUBC02  (SEGS(1,N),  CO 

*  determine  scalar  polynomial  coefficients 

A  =  CC1*U1  -*•  CC2*U2 
P  =  CC3*U1  ♦  CC4*U2 
C  =  CC6*U1  CC3*U2 
A3=A*3.0 
B2=B’>2.0 

*  iterate  tor  t  at  which  the  scalar  polynomial  becomes  zero 
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ITER=0 

T=DPS/(DPS-DPE) 

300  COHTIBUE 

FT=((A*T+B)*T+C)*T*D 

DT=rr/((A3*T+B2)*T+C) 

T=T-DT 

IF  (  ABS(  DT  )  .LE.  0.0000001  )  GO  TO  400 
1TER=ITER+1 

IF  (  ITER  .LE.  IHAX  )  GO  TO  300 

IF  (  ABS(  FT  )  .GT.  TOLER  )  IKT  =  2 

400  COHTIHUE 

*  set  intersection  coordinates,  n  and  t  parameters 

DO  1420  1=1,2 

COORD  =  ((CC(I)*T  +  CC(I+2))*T  +  CC(I+4))*T  +  CC(I+6) 

IF  (  ABS(  COORD  -  P(I)  )  .LE.  TOLER  )  COORD  =  P(I) 

PT(I)  =  COORD 
1420  CONTINUE 
1440  CONTINUE 
NINT=N 
TINT=T 

99999  CONTINUE 

RETURN 

END 

C  DECK  T2DAMD 

SUBROUTINE  T2DAMD  (K ,PHI2D .T2D ,T3D) 

*  calculates  added  mass  eind  damping  forces  on  a  2-d  section  given 

*  the  potentials 

COMMON  /CH3D/  ISIGMA .SIGMIN .SIGMAX .V .SINMU , COSMU, WTSI , 

1  1MMIN,IMMAX,IMDEL,LMIK,LMAX 

REAL  SIGMIN .SIGMAX ,V , SIKMU . COSMU .VTSI (4) 

INTEGER  ISIGMA , IMMIN . IHMAX , IMCEL , LMIN , LMAX 

COMMON  /ENVIOR/  VK . NVK , MU , NMU .OMEGA , NOMEGA , SIGMA , NSIGMA , SIGWH , 

1  NSIGWH , TMODAL , NTMOD , NRANG , RANG , RLANG , S , NNMU , FRNUM , VFS 
INTEGER  NVK, NMU.NOMEGA.NSIGKA, NSIGWH, NTMOD, NRANG, NNMU(8) 

REAL  VK(8) ,MU(37,8).0MEGA(30),SIGMA(10),SIGWH(4).TM0DAL(8) , 

2  RANG(8) ,RLANG(8) .S(30,8) ,FRNUM(8) ,VFS(8) 

COMMON  /GEOM/  X .NSTATN ,Y ,Z .NOFSET ,LPP .BEAM .DRAFT, LCF, 

1  VCG , GM . DELGM , NEBLA .KPITCH , KROLL . KYAW . KYAWRL . AWP , VCB . FBDX . FBDY , 

2  FBDZ , NFREBD , XPT , YPT , ZPT . NPTS . LCB . GML . ASTAT . BSTAT . TITLE . MASS , 

2  DISPLM . IPITCH , IROLL , lYAU , lYAWRL . CHEAVE , CPITCH, CHEAPI , CROLL . 

2  AREAMX.WSURF, GIRTH, FBDZV.DBLWL.TLCB 

INTEGER  NSTATN, N0FSET(25) .NFREBD, NPTS 
CHARACTER*4  TITLE(20) 

REAL  X ( 26 ) .Y( 10,25) ,Z( 10,25) ,FBDZV(8,10) .LPP  .BEAM ,DBLWL . TLCB . 

2  DRAFT, LCF, VCG. GM, DELGM, NEBLA. KPITCH. KROLL, KYAW, KYAWRL. AWP. VCB, 

2  FBDX(10),FBDY(10) , FBDZ (10) ,XPT(10) , YPT( 10 ) , ZPT( 10 ) , LCB , GML, 

4  ASTAT(2B) ,BSTAT(26) .MASS .DISPLM . IPITCH , IROLL, lYAW , 

5  lYAWRL, CHEAVE. CPITCH. CHEAPI. CROLL, AREAMX,WSURF,GIRTH(25) 

COMMON  /PHYSCO/  II .TPI , PI .PIOT , DEGRAD . RADDEG .VKMETR , HETRVK .GRAV . 
2  RHO, GNU, RHOS.RHOF, GNUS, GNUF,FTMETR,PUNITS,REYSCL 
COMPLEX  II 

CHARACTER*4  PUNITS(2) 

REAL  TPI . PI . PIOT . DEGRAD , RADDEG , VKMETR , METRVK  ,GRAV , RHO , GNU . RHOS , 

1  RHOF,GNUS,GNUF,FTMETR 

COMMON  /WGHTS/  WTDL.NORM 
REAL  WTDLClO, 25)  ,N0RM(4. 10,25) 

COMPLEX  PHI2D(10,10.4) , CTEMP ,T2D( 10 , 10 ) .T3D(10,10) 

DIMENSION  IDX(IO) , JDX(IO) 

DIMENSION  T(2S) ,ELEMS(4,25) 

DATA  IDX/1,3,5,3,2,4,6,2,2.4/ 
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OJ 


DATA  JDX/1,3,6.6,2,4.6.4.6.6/ 


«II0DES=1I0FSET(K) 

IF(HHODES.LE.O)  RETDRR 
DO  3  1=1,*STATI 
T(I)=0.0 
3  COHTIHUE 
T(K)=1.0 

CALL  SPFIT  (J  .7LEMS.ISTATI) 

CALL  SPIITG  (av.)  .KRSTATD.X.SSTATH.ELEMS.O.O.WTLI.DUM) 

DO  10  ISIGHA=1,ISXGHA 
DO  1  L»LMIN,LHAX 
CTEMP  =  (0. .0.) 

1=IDX(L) 

II  =  I 

IF  <I  .EQ.  6)  IH  =  3 
IF  (I  .EQ.  6)  IH  =  2 
J=JDX(L) 

JP=J 

IF  (J  .EQ.  5)  JP=3 
IF  (J  .EQ.  6)  JP=2 
XFCTR=1.0 

IF  (I  .EQ.  6)  xfctr=-xfcta*x(;k) 

IF  (I  .EQ.  6)  XFCTR=  XFCTR*X(K) 

IF  (J  .EQ.  6)  XFCTR=-XFCTR*X(K) 

IF  U  .EQ.  C)  XFCTR=  XFCTR*X(K) 

DO  2  N=1.NM00ES 

CTEMP  =  CTEMP  +  WTDLvn .K)*HORM(IH ,M,K)*PHI2D(IS1GMA ,M , JP) 

2  CONTIHUE 

T2D(ISIGMA,L)  =  2 . 0*II*RHO*SIGMA(ISIGMA)*XFCTR*CTEMP 
T3D(ISIGMA,L)  =  T3D(ISIGMA.L)  +  WTLI*T2D(ISIGMA ,L) 

1  CONTINUE 
10  CONTIHUE 

RETURN 

END 

C  DECK  T3DAKD 

SUBROUTINE  T3DAHD 

COMMON  /CH3D/  ISIGMA .SIGMIN, SIGMAX .V. SIHMU, COSMU . WTSI . 

2  IMMIN.IMMAX.IMDEL.LMIN.LMAX 

REAL  SIGMIN, SIGMAX, V.SINMU. COSMU, WTSI (4) 

INTEGER  ISICHA , IMMIH , IMMAX , IMDEL,t.MIN , LMAX 

COMMON  /DATINP/  OPTN ,MOTH .BSCFIL, VLACPR ,RAOPR, RLDMPR ,DISPLMT , 

2  LRAOPR,ADRPR,ORGOPTN,GMNOM,KG,STATN(26) ,NS0FST(25), 

2  HLEWF( 2S ) , HLFBTH (10,25), WTRLNE( 10,25), BLEWF ( 25 ) . TLEWF(2S ) , 

2  AREALF ( 26 ) , NPTLOC , PTNUMB ( 10 ) , PTN AME , XPTLOC ( 10 ) , YPTLOC  U  0 ) , 

2  2PTL0C(10) .NBB.FBNUMB(10),FBNAME,XPTFBD(10) ,YPTFBD(10), 

2  2PTFBD(10)  ,FBC0DE(10),FBTYPE,RD0T(lO),VKDES,FNDES, 

2  STATNH,STAT1S 

CHARACTER*4  PTNAME(8,10) .FBMAME(8 , 10) ,STATNM(6) ,FBTYPE(3 , 10) 
INTEGER  OPTN .MOTN  ,  BSCFIL , VLACPR , RAOPR , ADRPR , RLDMPR, FBCODE , 

2  FBNUMB, PTNUMB, ORGOPTN 
REAL  KG 

COMMON  /ENVIOR/  VK . NVK , MU. NMU , OMEGA , IOMEGA . SIGMA .NSIGMA,SIGWH , 

1  NSIGWH , THODAL , NTMOD . KRAKG , RANG . RLANG , S , NNHU , FRNUH , VFS 
INTEGER  NVK , NMU , IOMEGA , NSIGMA , NSIGWH , NTMOD . NRANG , NMMU(8) 

REAL  VK(8) ,MU(37,8) ,0MEGA(30) ,SIGMA( 10) ,SIGWH(4) ,TM0DAL(8) , 

2  RANG(8),RLANG(8) ,S(30,8) .FRNUM(8) .VFS{8) 

COMMON  /GEOM/  X ,NSTATN , Y .2 ,NOFSET .LPP , BEAM . DRAFT .LCF , 

1  VCG , GM . DELGM , NEBL A , KPITCH . KROLL , KY AW , KYAWRL , AWP . VCB , FBDX , FBDY , 
FBDZ . NFREBD , XPT . YPT .ZPT . NPTS . LCB , GML . ASTAT . BSTAT .TITLE . MASS , 
DISPLM . IPITCH , IROLL. lYAW , lYAWRL . CHEAVE , CPITCH , CHEAPI , CROLL , 
AREAMX.WSURF, GIRTH, FBDZV.DBLWL.TLCB 
INTEGER  NSTATN , N0FSET(25) , NFREBD , NPTS 
CHARACTER^4  TITLE(20) 

HEAL  X(25) ,Y(10.26),2(10,2S) ,FBDZV(8, 10),LPP,SEAM,DBLWL.TLCB, 

2  DRAFT , LCF , VCG , GM , DELGM , NEBLA , KPITCH , KROLL , KY AW , KYAWRL , AWP , VCB , 
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2  F6DX(10),FBDY(10) .FBDZ(IO) ,XPT(1G) ,^PT(10) .ZPT(IO) .LCB.GKL, 

4  ASTAT ( 25 ) . BSTAT(25 ) , MASS .DISPLM . IPITCH . IROLL . lYAW , 

6  lYAWRL , CHEAVE , CPITCH , CHEAP I , CROLL , AREAMX . WSURF . GIRTH ( 25 ) 

COMMON  /INDEX/  PFIDX.LPFIDX.RMIDX.LRMIDX.SVIDX.LSVIDX 

INTEGER  LPFIDX.LRMIDX.LSVIDX 

REAL  PFIDX(236) ,RMIDX(183) ,SVIDX(3) 

COMMON  /lO/  SYSFIL.POTFIL.COFFIL.LCOFIL.ICARD.TEXFIL.IPRIN, 

2  SCRFIL.HPLFIL.LRAFIL.ORGFIL.RAOFIL.RMSFIL.SEVF'IL.SPDFIL, 

2  SPTFIL.LACFIL.LAEFIL 

INTEGER  SYSFIL . POTFIL . COFFIL , LCOFIL , ICARD . TEXFIL . IPRIN . 

2  SCRFIL , HPLFIL .LRAFIL , ORGFIL , RAOFIL , RMSFIL , SEVFIL , SPDFIL , 

2  SPTFIL.UCFIL.LAEFIL 

COMMON  /PELEM/  PELEM 
COMPLEX  PELEM (4, 1000) 

COMMON  /STATE/  LAT.VRT, LOADS, ADORES, SALT, HEAD, EXROLL, BKEEL 
LOGICAL  LAT , VRT, LOADS , ADORES , SALT , BEAD , EXROLL, BKEEL 

COMMON  /STELEM/  STELEM 
COMPLEX  STELEM(4,9,250) 

COMMON  /TELEM/  TELEM 
COMPLEX  TELEM (4, 9, 10) 

COMMON  /WGHTS/  WTDL,NORM 
REAL  WTDL(10,25),H0RM(4,10,25) 

COMPLEX  T3D(10,10) ,PHI2D(10, 10,4) 

EQUIVALENCE  (PELEM ( 1 . 1 ) .T3D( 1 , 1 ) ) , (PELEM( 1 . 26) , PHI2D( 1 ,1,1)) 
COMPLEX  T2D(10,10) 

READ  (SCRFIL)  WTDL,NORM 
BACKSPACE  SCRFIL 
IMMIN  =  1 

IF  (.NOT.  VRT)  IMMIN  =  2 
IHMAX  =  4 

IF  (.NOT.  LAT)  IMMAX  =  3 
IMDEL  =  2 

IF  (VRT  .AND.  LAT)  IMDEL  =  1 
LMIN  =  1 

IF  ( .NOT.  VRT)  LMIN  =  6 
LMAX  =  10 

IF  ( .NOT,  LAT)  LMAX  =  4 
DO  20  1=1,10 
DO  10  J=l,10 
T3D(I,J)  =  (0.0,0. 0) 

10  CONTINUE 
20  CONTINUE 

DO  30  K=1,NSTATN 
NPT  =  NOFSET(K) 

IF  (NPT  .LT.  2)  GO  TO  30 
CALL  RPHI2D  (K,PKI2D) 

CALL  T2DAMD  (K,PHI2D,T2D,T3D) 

M  =  (K-l)*10 
DO  25  L=LMIN,LMAX 
M  =  H  +  1 

CALL  CPFIT  (SIGMA, T2D(1,L),STELEM(1,1,M),NSIGMA) 

25  CONTINUE 
30  CONTINUE 

DO  40  L=LMIN,LMAX 

CALL  CPFIT  (SIGMA, T3D(1, L) ,TELEM(1,1,L) ,HSIGMA) 

40  continue: 

rewind  COFFIL 
WRITE  (COFFIL)  TELEM 
REWIND  COFFIL 

IF  (RLDMPR  .GT.  0)  CALL  AHDPRN  (SIGMA, NSIGMA) 

RETURN 

END 
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C  DECK  TAKAKA 

SUBROUTIHE  TABAKA 

*  calculates  coefficient  C  (>:EODY(K))  and  RADIUS  (-RGB(K)) 

*  for  calculating  eddy-making  roll  damping  by  the  method  of 

*  TABAKA,  J.20SEB  KIOKAI,  V.  109,  1961 

COMMON  /EHVIOR/  VK, BVK, MU, KMU, OMEGA. HOMEGA, SIGMA. BSIGMA.SIGWH, 

1  BSIGWH . TMODAL . BTMOD . BRABG . RANG . RLANG . S . BBMU . FRBUM . VFS 
INTEGER  BVK .BMU.BOMEGA .BSIGMA .BSIGWH . BTMOD .BRABG .NNMU(8) 

REAL  VK(8) ,MU(37.8) .0MEGA(30) .SIGMA( 10) ,SIGWK(4) .TM0DAL(8) . 

2  RAHG(8) .RLABG(8) ,S(30.8) .FRNUM(8) .VFS(8) 

COMMOB  /GEOM/  X.BSTATB.Y.Z.BOFSET.LPP. BEAM. DRAFT. LCF. 

1  VCG . GM . DELGM . NEBLA . KPITCH . KROLL . KY AW . KYAWRL . AWP . VCB . FBDX . FBDY . 

2  FBD2 . NFREBD . XFT . YPT . 2PT . BPTS . LCB . GML . AST AT . BSTAT . TITLE . MASS . 

2  DISPLM , TMTCH . IROLL . lYAW . lYAWRL . CBEAVE . CPTTCH . CHEAPI . CROLL . 

2  AREAMX.Wr  GIRTH. FBD2V,DBLWL.TLCB 

INTEGER  ;:y  'ATN.H0FSET(2S)  .NFREBD. BPTS 
CHARACTER*4  TITLE(20) 

REAL  X(25) .Y( 10. 26) .2(10.25) .FBD2V(8 . 10) .LPP .BEAM .DBLWL .TLCB , 

2  draft, LCF. VCG, GM, DELGM. NEBLA. KPITCH. KROLL, KYAW, KYAWRL. AWP. VCB. 

2  FBDX(10),FBDY(10) .FBD2(10) .XPT(lO) ,YPT(10) . 2PT( 10 ) .LCB . GML. 

4  ASTAT(26) .BSTAT(25) .MASS. DISPLM. IPITCH. IROLL. lYAW. 

6  lYAWRL.CHEAVE.CPITCH. CHEAPI. CROLL. AREAMX.WSURF,GIRTH(25) 

COMMON  /RLDBK/  PSUR(25) .BMK(25) .DK(25) .CAK(25) .HQ.HSPAN.HMNCHD. 

2  HAREA.HXCP,HYCPiHZCP.HGAMMA.HYHAT,HEAR.HLCS.RQ(2) .RSPAN(2) . 

2  RMNCHD(2) .RAREA(2) .RXCP(2) .RYCP(2) .RZCP(2) .RGAMMA(2) .RYHAT(2) . 

2  REAR(2) .RLCS(2) .SQ(2) .SSPAN(2) .SMNCHD(2) .SAREA(2) ,SXCP(2) . 

2  SYCP(2),SZCP(2).SGAMMA(2) .SYHAT(2),SEAR(2) .SLCS(2),BQ('2) . 

2  BSPAN(2) .BMNCHD(2) .BAREA(2) .BXCP(2) .BYCP(2) .BZCP(2) .BGAMMA(2) . 

2  BYHAT(2).BEAR(2).BLCS(2) .FQ(2) ,FSPAK(2) .FMNCHD(2) ,FAREA(2) . 

2  FXCP(2) .FYCP(2) .FZCP(2) .FGAMMA(2) .FYHAT(2) .FEAR(2) .FLCS(2) , 

2  PQ(2.2).PSPAK(2.2) .PHNCKD(2 . 2) . PAREA(2 . 2) , FXCP(2 . 2) ,PYCP(2 .2) . 

2  P2CP(2,2),PGAMMA(2.2) .PYHAT(2.2) .PEAR(2.2) .PLCS(2,2) . 

2  STADMP(IO) .SHPDMP(10.8) .ENCCN .WPHI .TPHI .WMELM(4 . 9) ,SFELM(4 .9 . 8) , 

2  REELM(4.9,8) ,PEELM(4.9.8) .FEELM(4.9,8) .HEELM(4 . 9 . 8) .BEELM(4. 9 . 8) . 
2  ENWM.ENSF(8.8) .ENRE(8) .ENPE(8) .ENFE(8) .ENHE(8) .ENBE(8) . 

2  ENEMV(8.8) .ENRL(8) .ENPL(8) .ENFL(8) ,EKHL(8) .ENSL(8) ,ENBL(8) . 

2  ENSHP(8.8) ,RELM(4,9) .ITS(2S) .RD(26) .EDDY(8.25) .RGB(26) 

REAL  RDBLK(2692) 

EQUIVALENCE  (PSUR( 1 ) .RDBLK( 1 ) ) 

DO  20  IA=1.NRANG 
DO  10  K=1,NSTATN 
EDDY(IA.K)  =  0 
RGB(K)  =  0. 

IF  (NOFSET(K)  .LT.  2)  GO  TO  10 
BLOCAL  =  BMK(K) 

TLOCAL  =  DK(K) 

ORG  =  TLOCAL  -  VCG 

IF  (ITS(K)  .EQ.  1)  CALL  SERD  {K.RANG(IA) .BLOCAL.TLQCAL.ORG. 

2  EDDY(IA,K) .RGE(K)) 

IF  (ITS(K)  .EQ.  2)  CALL  SERAB  (K.P.ANG(IA)  .BLOCAL.TLOCAL.ORG. 

2  RD(K) .EDDY(IA.K).RGB(K)) 

IF  (ITS(K)  .NE.  3)  GO  TO  10 


*  stations  with  skegs 
ORG  =  TLOCAL  -  VCG 

CALL  SERE  (BLOCAL. ORG, EDDY(IA. K) .RGB(K) ) 

10  CONTINUE 
20  CONTINUE 

RETURN 

END 

C  DECK  TEPEAK 

SUBROUTINE  TEPEAK  (NWEVN ,WEVN ,ERS,XTOE,TPI) 


•  this  routine  obtains  th«  period  of  nax  energy  of  an  encounter 

•  spectrum. 

•  W.G. MEYERS,  DTNSRDC,  072877 

DIMEMSIOK  WEVH(HWEVH).ERS(S«:VH) 

PEAK  =0. 

7T0E  =  TPI/WEVH(1) 

DO  10  I=-1.NWEVN 
TE  =  TPI/«EVH(I) 

IF  (EP.S(I)  .GT.PEAK)  XTOE  *  TE 
IF  (nRS(I). GT.PEAK)  PEAK  *  ERS(I) 

10  CDHTIHUE 

RETURH 

EMC 

C  DECK  TFNFIT 

SUBROUTIKE  TFHFIT  (RLAHG.NRAHG.RLANS.MOTL, JM.IW.CTFB) 

DIMEHSIOH  RLAHG(8) 

COMPLEX  M01T(3,30,8),CAHS(8). CELH (4,8), CTFM , CDUM 

IF  (RLANS  .GE.  RLANG(l))  GO  TO  10 
CTFK  =  MOTLCJM.IW, 1) 

GO  TO  40 

10  IF  (RLAHS  .LE,  RLAKG(NRANG) )  GO  TO  20 
CTFN  =  MOTL(JM.IW,HRANG) 

GO  TO  40 

20  DO  30  IA  =  1.NP.A!IG 

CAHS(IA)  =  MOTLCJM.IW, lA) 

30  COHTINUE 

CALL  CPFIT  (RLANG.CANS.CELM.NRANG) 

CALL  CPLVAL  (RLAMG , KRANG , CELM .RLANS . CTFN , CDUM . lELH) 

40  CONTINUE 

RETURN 

END 

C  DECK  TOE 

SUBROUTINE  TOE  (KREC , AOMGE ,RA01 ,RA02, JA ,IT,R ,B2 .NPREDH.NLCH.Nl . 

2  N2 , NBETA . DELBET . NWEVN , WEVN , IV .DATA ) 

DIMENSION  KREC(13) ,AOMGE(30.13),RAC1(30,8,13) , RA02( 30 ,8 . 1 1 ) , 

2  R(30) ,B2(3B) .WEVNClOO) .DATA(432) ,DUM1(30) ,DUM2(30) , ARLCl ( 100) . 

2  ARI.C2(100)  ,ARLC3(100),RLC(100,24) 

COMMON  /ENVIOR/  VK , NVK .MU , NMU .OMEGA .NOHEGA , SIGMA .NSIGHA . SIGWH , 

1  NSIGWH .TMODAL .NTMOD .NRANG , RANG , RLANG , S .NNHU , FRNUM , VFS 
INTEGER  NVK .NMU , NOMEGA .NSIGMA .NSIGWH , NTMOD .NRANG , NNMU(8) 

REAL  VK(8) .MU(37,8) ,0MFGA(30) .SIGMA(IO) ,SIGWH(4) ,TM0DAL(8) , 

2  RANG(8) ,RLANG(8) ,S(30,8) ,FRNUM(8) ,VFS(8) 

COMMON  /PHYSCO/  II.TPI , PI , PIOT, DEGRAD , RADDEG , VKMETR .METRVK .GRAV , 
2  RHO. GNU, RHOS.RHOF, GNUS, GNUF.FTHETR, PUN  ITS, REYSCL 

rriMPT  P  Y  T  T 

CHARACTER*4  PUNITS(2) 

REAL  TPI, PI .PIOT, DEGRAD, RADDEG. VKMOTR. METRVK .GRAY, RHO. GNU, RHOS, 

1  RHOF, GNUS, GNUF.FTHETR 

INTEGER  DELBET 

DO  60  IH=1.NMU 
HDNG  =  (IH-1)»DELBET 

11  =  N1  +  IH 

12  =  N2  -  IH 

IF  (12  .LE.  0)  12  =  12  +  NBFTA 
IF  (KREC(IH)  .GT.  0)  GO  TO  20 
DO  10  i=i,NWEv:; 

10  RLC(I.Il)  =  0. 

GO  TO  60 

20  CALL  PSPLC  (NOMEGA , OMEGA , AOMGEC 1 , IH) .VKCIV) . HDNG , DEGRAD .GRAV . 

2  VKMETR. DUM1.DUM2,KA01(1.JA,IH).S(1. IT) .R, NWEVN .WEVN , ARLCl , ARLC2 . 
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2  ARLC3,RLC(1,I1)) 

IF  (KREC(IF)  .EQ.  2)  GO  TO  40 
DO  30  I=l.gWEVB 
30  RLC(I,I2)  =  RLCd.Il) 

GO  TO  60 

40  KH  =  IH  -  1  • 

CALL  PSPLC  (HOKEGA, OMEGA, AOMGEd, IH) ,VK(IV) ,EDNG, DEGRAD. GRAV. 

2  VKMETR , DUMI . DUM2 ,RA02(l,JA,KH),S(a.IT).R, NWEVH , WEVN , ARLC 1 , ARLC2 , 
2  ARLC3,RLC(1,I2)) 

60  COMTISUE 

L  =  0 

DO  60  IPB=1 .BPREDH 

CALL  PSPSC  («WEVH,WEVK,RLC,HBETA.B2,HLCH,IPH.ARLC:,ARLC2.70ELC, 

2  TOESC.TPl) 

L  =  L  +  1 
DATA(L)  =  TOELC 
L  =  L  +  : 

DATA(L)  =  TOESC 
60  CONTINUE 

RETURN 

END 


C  DECK  TRIM 

subroutine  trim 

•  This  subroutine  provides  the  correction  ol  zero-speed  freeboard 

*  lor  the  sinkage  and  trim  induced  by  forward  soeeds.  Reference- 

•  RICHARD  C.  BISHOP  and  NATHAN  X.  BALES,  "A  SYNTHESIS  OF  BOW 

*  WAVE  profile  and  CHANGE  OF  LEVEL  DATA  FOR  DESTROYER-TYPE  HULLS 

•  WITH  APPLICATION  TO  COMPUTING  MINIMUM  REQUIRED  FREEBOARDS," 

*  DTNSRDC  REPORT  78-SPD-81 1-01 ,  JAN.  1978.  The  formulae  for 

*  sinkage,  20,  were  developed  in  units  of  feet.  Conversion 

•  to  meters  is  provided.  The  formulae  for  trim,  ang.  were 

*  developed  in  units  cf  degrees.  Conversion  to  radians  is  made. 

•  ship  speed  is  in  knots.  NBR=0  means  a  ship  without  a  bow  dome. 

COMMON  /DATINP/  OPTN , MOTN . BSCFIL . VLACPR , RAOPR, RLDMPR , DISPLHT , 

2  LRAOPR.ADRPR,ORGOPTN.GMNOM.KG,STATN(25) ,NS0FST(25) , 

2  NI,EWF(25),HLFBTH(10.25) , WTRLNE(10 , 25) .BLEWF(25) ,TLEWF(25) . 

2  AREALF(2S),NFTL0C.PTNUMB(10) .PTNAME , XPTLOCC 10) .YPTLDCdO), 

2  ZPTLOC(IO) ,NBB,FBHUMB(10) ,FBHAME,XPTFBD(lO) .YPTFBD(IO) , 

2  ZPTFBD(IO) .FBCODE(IO) .FBTYPE.RDOT(IO) .VKDES ,FNDES , 

2  STATNM.STATIS 

CHARACTER*4  PTNAME(8, 10) ,FBNAME(8 , 10) ,STATNM(5) ,FBTYPE(3 . 10) 
INTEGER  OPTN . MOTN . BSCFIL .VLACPR , RAOPR . ADRPR , RLDMPR, FBCODE , 

2  FBNUMB.PTNUMB.ORGOPIN 
REAL  KG 

COMMON  /ENVIOR/  VK . NVK . MU . NMU .OMEGA .IOMEGA , SIGMA , NSIGMA , SIGWH . 

1  NSIGWH . TMODAL , NTMOD . NRANG , RANG , RLANG , S , NNMU .FRNUM , VFS 
INTEGER  NVK, NMU, NOMEGA, NSIGMA, NSIGWH, NTMOD. KRANG, NNMU (8) 

REAL  VK(8) .MU(37,8) . OMEGA ( 30 ) .SICMA( 10 ) , SIGWK(4 ) ,TH0DAL(8) . 

2  RANG(6),RLANG(8),S(30,8).FRNUM(8).VFS(8) 

COMMON  /GEOM/  X .NSTATN , Y . Z , KOFSET . LPP .BEAM , DRAFT . LCF , 

1  VCG,GM.DELGM,NEBLA,KPITCH,KRDLL.KYAW,KYAWRL,AWP,VCB,FBDX,FBDY, 

2  FBD7. , NFREBD , XPT , YPT , ZPT , NPTS ,LCB . CML . ASTAT , PSTAT , TITLE , HASS . 

2  DISPLH.IPITCH.IROLL.IYAW.IYAWRL.CHEAVE.CPITCH.CHEAPI .CROLL, 

2  AREAMX  .WSURF, GIRTH .FBDZV.DBLWL.TLCB 

INTEGER  NSTATN, K0FSET(25) .NFREBD, NPTS 

REAL  X(25) .Y(10.25) ,Z(10,26) .FBDZV(8.10) , LPP .BEAM .DBLWL.TLCB . 

2  DRAFT. LCF. VCG,GM,DELGM,NEBLA.KPITCH.KR0LL,KYAW,KYAWRL,AWP.VCB, 

2  FRDX(10),FBDY(10)  ,FBDZ(  10)  .  XPT(  10)  .YPT(  10) .  ZPTdO)  .LCB  .  GML. 

4  ASTAT(26J ,BSTAT(25) .TITLE(20) .HA? S .DISPLM . IPITCH . I.ROLL , lYAW . 

5  lYAWRL.CHEAVE.CPITCH.CHEAPl , CROLL. AREAMX, WSURF ,GIRTHC25) 

COMMON  /PHYSCO/  II ,TP1 .PI . PICT , DEGRAD . RADDEG .VKMETR .METRVK , GRAV 
2  RHO , GNU . RHOS , RHOF , GNUS , GNUF , FTMETR . PUNITS . REYSCL 
COMPLEX  II 

CHARACTER*4  FUN1TS(2) 


REAL  TPI, PI. PIDT, DEGRAD, RADDEG,VKMETR,METRVK,GRAV  RHO .GKU . KHOS . 
1  RHDF,GKUS.GNUF.FTMETR 

REAL  LO 

CHARACTER^4  METER 
DATA  METER  /*METE\/ 

CON  =  1 

IF  (PUWITS(l)  .EQ  METER)  CON  =  FTMETR 
DO  1  1=1. KVK 

♦  speed  X8  FROUDE  scaled  to  LO  ship 

LO  =  480. ♦CON 

VO  =  SQRT(LO/LPP)  ♦  VK(I) 

V2  =  VO*VO 
V3  =  V2*V0 

IF  (NBB  EQ.  0)  GO  VO  20 

♦  with  bov  dome 

20  =  (.007848*V0  +  .0C;321*V2)  ♦  CON 

ANGO  =  (.0^6422*V0  -  .0021752*V2  +  5.9S7E-5*V3)  *  DEGRAD 
GO  TO  30 
20  CONTINUE 

♦  ship  without  bow  dome 

20  =  (-.00&292*V0  +  .00l8b5*V2)  ♦  CCN 

ANGO  =  (.0092648»V0  -  .00164J2^V2  -r  4 . 2912E-5^V3:  ♦  DEGRAD 
30  CONTINUE 

♦  siuXage  FROUDE  scaled  trom  LO  ship  to  LPP  ship. 

♦  sinhago  arid  trri^i  ooth  dsiiricd  posits vc. 

♦  ireeboaxd  correction  =  K  -  SINKAGE  +  FBDX^TRiM 

DO  F  J=1,NFREBD 
SNK  =  20  ♦  LPP/LO 
TRM  =  AN^O 

FBDZVd.J)  =  FBD2(J)  -  SNK  +  FBDX(J)*TRM 
5  CONTINUE 

1  CONTINUE 

RETURN 

END 


C  DECK  TRNLAT 

SUBROUTINE  TRNLAT  (VCG ,TL .EXCL.TLG .EXCLG) 


COMPLEX  TL(3,3) .EXCL(3) ,TLG(3,3) .EXCLG(3) 


TLGd.l) 
TLG(1.2) 
TLG( 1 .3) 
TLG(2,1) 
TLG(2,2) 
•iLG(2.3) 
TLG(3,1) 
TLG(3.2) 
TLG(3.3) 
EXtLG(l) 
EXCLG(2) 
EXCLG(3) 


TL(l.l) 
TL(1.2)  + 
TL(1.3) 
TLG(1,2) 
TL(2.2)  + 
TL(2.3)  + 
TL(3.1) 
TL(3,2)  + 
TL (5,3) 
EXCL(l) 
EXCL'2)  + 
EXCl(3) 


VCG*TL(1 .1) 

VCG*(TH,1.2)  +  TL(2.1)  +  VCG*TL(1.1)) 
VCG*TL(1 ,3) 

VCG*TL(3, 1) 


VCG*EXCL(i) 


RETURj; 

END 


C  DECK  TWODPT 

SUBROUTINE  TWODPT  (KSTA , YSTA , ZSTA , NPT , PHI2D) 


*  This  subroutine  provides  tBO-diraensional  velocity  potentials  lor 

*  oscillating;  cylinders  ol  arbitrary  cross  secrion  in  a  Iree  eurlace 

*  lour  velocity  potentials  aosociated  with  t'.<j  individual  Bed  s 

*  ol  oscillation,  curge,  ssay,  heave,  <,  d  roll,  are  obtained  which 

*  are  stored  in  PBI2D  (Irequency,  ollaet  point,  mode). 

COMMOH  /ERVIOR/  \'K,NVK,HU,HMU,OMEGA,HOMEGA,SIGMA,HSIGMA,SIGWH, 

1  HSIGWH , TNODAL , KTMOD , BRAHG , RANG ,  FXANG , S , KNMU , FRNUM , VFS 
IHTEGER  IVK , HKU , IIOMEGA , HSIGUA , MSIGWH , KTMOD , KRAKG , HHMU (8 ) 

REAL  VK(8) ,MU(37.8) ,0MEGA (30) .SIGMA( 10) ,SIGWH(4) ,TM0DAL(8) , 

2  hASG(8),RLAHG(8).S(30,8)  ,FhB'JM(8)  ,VFS(8) 

COMMON  /GECK/  X ,liSTAT» , Y ,Z,»0FSET,LPP ,BEAH ,DRAFT ,LCF , 

1  VCG  ,  CM , DELGM , HEEL A , KPITCH , KROLL , KYAW , KYAWRL , AWP , VCB , FBDX , FBDY , 

2  F.BDZ , NFREBD .  XPT , YPT ,  ZPT ,  HPTS  ,LCB ,  GML ,  ASTAT ,  BSTAT , TITLE , HASS  , 

2  DISPLM , IPITCH , IROLL , XVAW , lYAWRL , CHEAVE , CPITCH , CHEAPI , CROLL , 

2  ARE AMX , W3URF , GIRTH  , FBDZV  DBLV'L , TLCB 

INTEGER  NSTATN,N0FSET(2S)  ,NFRi.B0,NPTS 
CHARACTER*4  TITLE(20) 

REAL  X(26),Y(10,25) ,Z(10,25) ,FBDZV(8,10) ,LPP , BEAM ,DBI  WL, TLCB , 

2  DRAFT ,LCF  ,  VCG , GK, DELGM  , SEBLA  ,KHTCa , KROLL, KYAW  , KYaWRL  ,  AWP  ,  VCB , 

2  FBDX (10)  ,FBDY(10)  ,FEDZ(10)  ,XPT(10)  .YPT(  10) , i’=’T(  10)  ,LCB,GML, 

4  ASTAT(2B) ,BSTAT(25) , MASS , DISPLM , IPITCH , IROLL .TYAW 
B  lYAWRL, CHEAVE, CPITCH, CHEAPI, CROLL, AREAMX,VSURF,GI  i’B(26) 

COHtlON  /lO/  3YSFIL,P0TFIL,C0FFIL,LC0FIL,ICARD,TEXFIL,IPRIN, 

2  SCRFIL,HPLFIL,LRAF1L,0RGFIL,RA0FIL,RMSFIL,SEVFIL,SPDFIL 

2  .3p:til,lac?il,laefil 

INTEGER  SYSFIL , POTFIL , COFFIL , LCOFIl , ICARD , TEXFIL , IPRIN . 

2  SCRFIL,HPLFIL,LRAFIL,ORGfIL,RAOFIL,RKSFIL,SEVFIL,SPDFIL, 

2  SPTFIL,LACFIL,LALFIL 

COMMON  /PHYSCO/  II ,TPI ,PI ,PIOT.DEGRAD .RADD.EG ,VKMETR ,HETRVK , GRAV , 

2  P.HO  ,  GNI) ,  RHOS ,  RROF ,  GhOS  ,  GNUF ,  FTMETR ,PUNITS  ,  .REYSCL 
COMPLEX  II 

CKARACTERtd  r'J!;iT0(2) 

REAL,  TPI , PI , PIOT , DEGRAD . RADBEG , VKMETR , METRVK , GRAV ,RH0 , GNU , RHOS , 

1  RHOK  GNUS, GNUF, FTMETR 

COMMON  /STATE/  LAT , VRT , LOADS , ADDRES , SALT , HEAD , EXROLL , BKEEL 
LOGICAL  LAT, VRT , LOADS , ADDRES ,SALT , HEAD , EXROLL , BKEEL 

COMMON  /TWOD/  YY ,  ZZ,  ENN,  iSTA 
H'TEGER  I.STA 

PEAL  YYL10,2SJ ,2Z( 10,25) ,ENN(4, 10,25) 

COMPLEX  RHSl(lO),  RHG2(10),  RH53(10),  RIIS4(10).  Ql(lO),  Q2(1C 

03(1.0),  Q4(10),  GPEENVClO.lO;,  GHEENLC 10 , 10)  ,  CTV(10,1  , 

CTL(i0,10),  UV(lO,10),  UL(10,10),  SIGIM,  FAC, 
PHI2D(10,10,4) 

DIMENSION  POTLOG(2,10,10),  PTfJL0G(2 , 10 , 10)  ,  CN(IO),  SN(10’' 
DIMENSION  YS(n),  ZS(ll),  irV(lO),  IPL(IO) 

L'lf'ENSIGK  ySTA(lO)  ,ZS1A(10) 

DIMENSION  SP(IO) ,SQ(10y ,W1(10) ,W2(10) 

LOGICAL  LID 

ISTA  =  KSTA 

FACTOR  =  SCRT(GRAy*LPP) 

SQRLC,  =  SQRT(LPP/GRAV} 

DO  60  1=1  ,ns;';ma 
SIGhA(I)  =  SIGh.'(I)*SQRLG 
CO  CONTINUE 

DO  70  J=1,NP1 

ENN(4,  J,ISTA)  =  ENN(4,  J,ISTA)/L.PP 
YSC)  =  YSTA(J)/LPP 
ZS(J)  =  ZSTAO/LPP 
YY(J.ISTA)  =  YY(J,ISTA)/LPP 
ZZU.ISTA)  =  Z2(J,ISTA)/LPP 
70  CONTINUE 
SQ(1)  =  0. 

DO  72  N=2,HPT 
NM  =  N  -  1 


2:31t 


72 


74 


76 


)  -  YS(IIM) 
)  -  2S(MM) 


YIHT  =  YS(II 
ZIKT  ®  ZSCII 
GIR  =  SQRT(YINY»Y1NT+ZIST*2IJIT) 
SQ(N)  -  SQ(IM)  +  GIR 
CONTINUE 
HON  =  NPT  -  1 
YINT  YY(1,ISTA)  -  YS(l) 

2INT  =  ZZ(l.ISTA)  -  ZSd) 

GIR  =  SQRT(YIHT*YIKT+ZINT*7INT) 
SP(1)  =  GIR 
DO  74  H=2.N0I 
HM  =  H  -  1 

YINT  =  YY(N,ISTA)  -  YY(HM.ISTA) 
ZINT  =  ZZ(N,TSTA)  -  Z2(NM,ISTA) 
GIR  =  SQRT(YIHT»YIHT+ZINT^ZINT) 
SP(N)  *  SP(NM)  +  GIR 
CONTINUE 
DO  76  H=2,N0H 
HM  =  H  -  1 

DEN  =  SP(N)  -  SP(NM) 

WlCN)  =  (SP^  ^ 

W2(N)  =  (SQ 
CONTINUE 


(H)  -  Sq(N))/DEN 
(N)  -  SP(NM))/DEN 


DEN  - 

SP(2)  - 

SP(1) 

Wl(l) 

=  (SP(2 

■  SQ(1) 

W2(l) 

=  (SQ(1 

)  -  SP(l) 

NM  NON  ••  1 


SP(NM) 


(NPT) 

=  (SP( 

:non) 

-  SQI 

;npt) 

(NPT) 

=  (SQ( 

’npt) 

-  SPI 

!nm)) 

♦  t.&st  lor  LID 

LID  =  .TRUE. 

IF  (ABS(YSUPT))  .LE.  l.OE-6)  LID  =  .FALSE. 

NAP.G  =  NPT 

IF(.JIOT.LID)  KARG  =  BPT-l 
NZRO  =  NPT  +  1 

O'  below  two  cards  are  to  introduce  one  more  segment  on  the  free 

e  surface  inside  a  cross  section  for  removing  irregulstr  frequencies. 

YS(RZRO)  =  0. 

ZS(»ZR0)  =  0. 


CALL  GRNL0G(  YS ,  ZS ,  NARG,  POTLOG,  PTNLOG,  CN .  SN) 
DO  10  K=1,NSIGMA 
SIGMA2  =  SIGMA(K)**2 
SIGIM=II*SIGMA(K) 

DO  1  1  =  1, NON 

RHSl(I)  =  -ENN(1,I,ISTA)*SIGIM 
RHS2(1)  =  -E>;N(2,I,ISTA)*SIGIM 
RHS3(l)  =  -EHN(3,I,ISTA)eSIGIM 
RHS4(I)  =  -ENN(4,I,ISTA)*SIGIM 
1  CONTINUE 


*  the  following  four  cards  are  to  impose  a  rigid  wall  condition  on 

•  the  waterline  segment  inside  the  section. 

IF(.*'0T.  LID)  GO  TO  26 
RHSl(NPT)  =  (0.0,  0.0) 

RHS2(KPT)  =  (O.O,  0.0) 

RHS3(NPT)  =  (0.0,  0.0) 

RHS4(NPT)  =  (O.O,  0.0) 

25  CONTINUE 

CALL  GRHFRQ(  YS .  ZS .  NARG,  SIGMA2,  POTLOG,  PTNLOG,  CN ,  SN , 

CTV,  CTL,  GREENV,  GREEN’D 

*  for  the  algebraic  equation  AX=B,  CDCOHP  makes  an  inversion  of 

•  the  matrix  A,  and  CSOLVE  provides  the  solution  vector  X  by 

♦  X=(INVERTED  A)B 


2-10 


CALL  CDCOMP(  BARG,  10,  CTV,  UV.  IPV) 

IF  (IPV(HARG)  .EQ.  0)  GO  TO  17 

CALL  CSOLVE(  BARG,  10.  irv,  RHSl,  Ql.  IPV) 

CALL  CSOLVEC  BARG.  10,  UV,  RHS3,  Q3.  IPV) 

IF  (,BOT.  LA7)  GO  TO  20 

CALL  CDCOMP  (BARG.  10,  CTL.  UL,  IPL) 

IF  (IPL(BARG)  .EQ.  0)  GO  TO  17 

CALL  CSOLVE  (BARG,  10,  UL.  RHS2,  Q2,  IPL) 

CALL  CSOLVE  (BARG,  10.  UL,  RHS4,  04,  IPL) 

20  COBTIBUE 

DO  2  I^l.HOB 
PHI2D(K,I,1)  »(0.  ,  0.) 

PHI2D(K,I,3)  *(0.  ,  0.) 

DO  2  J=1,BARG 
FACsGREEBV ( I , J ) ♦FACTOR 
PHI2D(K,I,1)  =  PHI2D(K,I,1)+Q1(J)*FAC 
PHI2D(K.I,3)  =  PHI2D(K,I,3)+Q3(J)*FAC 
2  COBTIBUE 

♦  PflI2DS  are  to  be  interpolated  or  extrapolated  linearly  Irom  the 

«  midpoint  of  the  eegnents  to  the  offset  points. 

♦  QI  arrays  aire  to  be  used  for  temporary  storage  for  PHI2DS 

DO  ISO  B=2,B0H 
BN  ^  N  ~  1 

QKNy  =  Wi(»)*PHI2D(K,NM,l)  -*•  W2(H)*PHI2D(K , N ,  1 ) 

Q3(N)  =  Wl(H)*PRI2D(K.NM.3)  ♦  W2(N)*PHI2D(K .H .3) 

150  CONTINUE 

NN  ^  BOH  1 

Ql(l)  =  W1(1)*PRI2D(K,1,1)  +  W2(1)*PHI2D(K,2,1) 

Q3(l>  =  Wl(l)*PHI2D(K.l .3)  +  W2(1)*PHI2D(K,2.3) 

QlCNP'^)  =  W1(NPT)*PHI2D(K,NM,1)  +  W2(NPT)  ♦PHI2D(K  .NON  ,  1 ) 
03(NPr)  =  W1(NPT)*PHI2D(K,NM,3)  +  W2(NPT)*PHI2D(K,N0N.3) 

DO  90  1=1, NPT 
PHI2i;(K,I,l)  s  01(1) 

90  PHI2D(K,I,3)  =  Q3(I) 

IF( .NOT.  LAT)  GO  TO  10 
DO  5  1=1, NON 
PHI2D(K,I,2)  =(0.  .  0.) 

PHI2D(K,I,4)  ={0.  ,  0.) 

DO  6  J=1,NARG 
FAC=GREEHL C I , J ) ♦FACTOR 


PHI2D(K.I,2)  =  PHI2D(K,I.2; 

>*FAC 

PHI2D(K.I.4)  =  PHJ2D(K,I,4; 

f+Q4U! 

l•FAC 

DO  160  B=2,N0B 

KM  -  B  “  1 

Q2(N)  =  W1(N)*PHI2D(K,NM.2: 

)  +  U2v 

;N)*PKI2D< 

;k.n,2) 

Q4(N)  =  Wl(N)*PHI2D(K,BM,4l 

}  +  V2( 

;n)*phi2d< 

:k,n,4) 

160  CONTINUE 

NM  =  NON  -  1 

Q2(l)  =  Wl(l)*PHI2D(K.l ,2)  +  W2 ( 1 )*PHI2D(K , 2 .2) 

Q4(l)  =  W1(1)^PHI2D(K  1,4)  +  W2 ( 1 )*PH:2D(K ,2 ,4) 

Q2(KPT)  =  W1(NPT)*PHI2D(K.NM,2)  ♦  W2(NPT)*PHI2D(K .NON .2) 
Q4(NFT)  =  W1(NPT)*PHI2D(K.NH,4)  +  W2(NPT)*PHI2D(K ,N0N ,4) 
DO  97  1=1, NPT 
PHI2D(K,I,2)  =  02(1) 

97  PHI2D(K,I,4)  =  Q4(I) 

10  CONTINUE 
GO  TO  19 

17  WRITE  (IPRIN.IB)  K 

18  FORMAT  (////  lOX.'TWODPT  —  SINGULAR  MATRIX  AT  K= ’ ,  13) 
STOP 

19  CONTINUE 

*  patch  to  obtain  correct  potential 

DO  32  K=1  .BSIC.HA 

DO  30  1  =  1, NPT 
DO  31  J=l,4 

PHI2D(K,I, J)=“C0NJG(PHI2D(K,I,J)) 

31  CONTINUE 


PHI2D(K,1.4)=LPP*PHI2D(K,I,4) 

30  CONTISUE 
32  COBTIKUE 

DO  76  I=1,HS1GMA 
SIGMA(I)  =  Sir.«A(I)/SQRLG 
76  COBTIBUE 

DO  80  J=1,HPT 

ESH(4.J,ISTA)  =  EHK(4.J,ISTA)*LPP 
YY(J,1STA)  =  YY(J,ISTA)*LPP 
Z7(J.ISTA)  =  2Z(J.ISTA)*LPP 
80  COHTIHUE 

RETURH 

ESD 

C  DECK  VELACC 

SUBROUTIHE  VELACC  (IM,IT,GRAV,HL,IU,OMEGAE ,RA01 ,PHS1 ,RA02,PRS2 . 
2  HOMEGA.HPLABE.IPHS) 


*  Thi«  routin*  ebtain*  the  velocity  end  acceleration  rao*  and 

*  phase  angles  lor  motions  at  the  origin  and  at  a  point. 

*  W.G.KEYERS,  DTHSRDC,  100477 


DIHEilSION  OMEGAF.(IOMEGA)  . RAOl (HOMEGA)  ,PH31  (N0MEGa\ RA02(N0MEGA )  , 
2  PHS2(H0h£GA) 


10 

20 


GPAV2  =  GRAV*GRAV 
DO  20  IsHL.WU 

0MEGE2  =  OHEGAE(I)*OHEGAE(I) 
0MEGE4  =  OMEGE2*OMEGE2 
DO 
IF 


10  J=1,NPLANE 
(IT.EQ.2  .AND.  J.EQ.l)  RAOl(I)  =  RAOl (!)*0MEGE2 


IF 

(IT.EQ.2  .AND. 

J.EQ.2) 

RA02( 

;i)  =  RA02(I)*0MEGE2 

IF 

(IT.EQ.3  .AND. 

J.EQ. 1) 

RAOK 

I)  =  RA01'I)*0MEGE4 
:i)  =  RA02(I)*0HEGE4 

IF 

(IT.EQ.3  .AND. 

J.EQ.2) 

RA02< 

IF 

(IT.EQ.3  .AND, 

,  IM.LT.4 

.AND. 

.  J.EQ.l)  RAOl(I)  =  RAOK 

;i)/GRAV2 

IF 

IF 

(IT.EQ.3  -AND. 
(IPHS  .EQ.  0) 

IM.LT.4 
GO  TO  1C 

.AND, 

,  J.EQ. 7)  RA02(I)  =  RA02( 

;i)/GhAV2 

IF 

(IT.EQ.2  .AND. 

.  J.EO.l) 

PRS1< 

;i)  =  PHSl(I)  -I-  90. 

IF 

(IT.EQ.2  .AND. 

,  J.EC.2) 

PHS2( 

I)  =  PHS2(I)  t-  90. 

IF 

(IT.EQ.3  .AND. 

,  J.EQ.l) 

PHSU 

I)  =  PHSl(I)  ♦  180. 

IF 

(IT.EQ.3  .AND. 

.  J.EQ.2) 

PHS2< 

:i)  =  PHS2(I)  +  180. 

CONTISUE 

CONTINUE 


RETURN 

END 


C  DECK  Vise 

SUBROUTIHE  VISC 


COMMUN  /CH3D/  ISIGMA , SIGMIN , SIGMAX . V , SINHU , COSHU , WTSI . 

2  IMMIN.IMMAX.IMDEL.LMIN.LMAX 

REAL  SIGMIN, SIGMAX ,V,SINMU,COSMU , WTSI (4) 

INTEGER  ISIGMA, IHMIN,IMMAX,IMDEL,LKIN,LMAX 

COMMON  /ENVIOR/  VK . NVK , MU ,NMU , OMEGA , NOMEGA , SIGMA , NSIGMA , SIGWH , 

1  NS.TGWH  .TMDDAL ,  NTMOD  ,  NRANG ,  RANG  ,  RLANG  ,  S  ,  NNMU ,  FRNUM  ,  VFS 
INTEGER  N VK,NMU, NOMEGA , NSIGMA, NSIGWH, NTMOD, NRANG , NNMU (8) 

REAL  VK(8) ,HU(37,8) .OHEGAOO) ,SIGHA( 10) ,SIGWK(4) ,TM0DAL(8) , 

2  RANG(8) ,RLANG(8) ,S(30,8) ,FRNUM(8) ,VFS{8) 

COMMON  /GEOM/  X , NSTATN ,Y , Z , KOFSET ,LPP , BEAM , DRAFT , LCF , 

1  VCG , CM ,DELGM , NEBLA . KPITCH , KROLL , KY AW , KY AWRL , AWP , VCB , FBDX , FBDY , 

2  FBDZ , NFREBD , XPT , YPT , ZPT , NPTS . LCB , GML . ASTAT , BSTAT , TITLE , M ASS , 

2  DISPLM , IPITCH , IROLL , lYAW , lYAWRL , CHEAVE ,CFITCH , CHEAPI , CROLL , 

2  AREAMX, WSURF, GIRTH, FBDZVDBLWL,TLCB 

INTEGER  NSTATN, N0FSET(26; .NFREBD, NPTS 
CHARACTER*4  TITLEf  20) 

REAL  X(26) , Y( 10,2'.) ,2(10,26) ,FBDZV(8, 10),LPP.BEAM,DBLWL,TLCB, 

2  DRAFT,LCF,VCG,GM,i)ELGM,NEBLA,KPITCH,KROLL,KYAW,KYAVRL,AWP,VCB, 
2  FBDX(IO) ,FBDY(10) .FBDZ(IO) ,XPT(10) ,YPT(10) ,ZPT(10) , LCB, GML, 


4  ASTAT(26 ) , BSTAT(26 ) , MASS .DISPLM , IPITCH , IROLL . lYAW , 
t  lYAWRL , CHEAVE , CPITC3 , CHEAPI , CROLL , AREAMX , WSURF , GIRTH ( 25 ' 


COMMON  /PHYSCO/  II, TPI, PI, PIOT, DEGRAD, RADDEG.VKHETR.METRVK, GRAY, 
2  RHO , GNU . RHOS , RHOF , GNUS , GNUF . FTMETR , PUHITS , REYSCL 
COMPLEX  IT 

CHARACTER'»4  PUMITS(2) 

REAL  TPI , PI , PIOT . DEGRAD , RADDEG , VKMETR , METRVK , GRAY , RHO , GNU , RHOS , 

1  RHOF, GNUS, GNUF. FTMETR 


2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 


COMMON  /RLTBK/  PSUR(2B) ,BMK(2S) ,DK(26) ,CAK(25) ,HQ,HSPAN,HMNCHD. 
HAKEA,HXCP.HYCP.HZCP,HGAMMA,HyHAT,HEAR,BLCS,RQ(2) ,RSPAH(2) , 
RMIICBD(2) ,RAREA(2) ,RXCP(2) ,RYCP(2) ,R2CP(2) .RGAMMA(2) ,RYHAT(2) . 
REAR(2) ,RLCS(2) .SQ(2) ,SSPAN(2) ,SMNCHD(2) ,SAREA(2) ,SXCP(2) , 
SYCP(2),S2CP(2) .SGAMMA(2),SYHAT(2),SEAR(2),SLCS(2),BQ(2) . 

BSPAN(2) ,BMHCHD(2) ,BAREA(2) ,BXCP(2) ,BYCP(2) ,B2CP(2) ,BGAMMA(2) . 
BYHAT(2) ,BEAR(2) .BLCSf2) ,FP(2) ,FSPAN(2) ,FMHCHD(2) ,FAREA(2) . 
FXCP(2) .FYCP(2) ,FZCP(2) ,FGAMMA(2) .FYRAT(2; ,FEAR(2) ,FLCS(2) , 
PQ(2,2hPSPAN(2.2) . PMNCHD(2 , 2) ,PAREA (2 , 2) , PXCP (2 , 2) , PYCP(2 .2) , 
P2CP(2,2),PGAMHA(2.2) .PYHAT(2.2).PEAR(2,2) ,PLCS(2,2) . 

STADMP(IO) .SHPDMPdO.B) .EHCON.WPHI .TPHI .WMELM(4,9),SFELM(4,9,8), 
REELM(4,9,8),PEELM(4.9,8).FEELM(4.9,8),HEELM(4,9,8) ,BEELM(4,9,8) , 
ENWM,ENSF(8.8) ,ENRE(8) ,ENPE(8) ,ENFE(8) .ENHE(8) ,ENBE(8) . 

ENEMV(8,8) ,ENRL(8) ,EHPL(8) .ENFL(8) ,ENHL(8) ,ENSL(e) ,ENBL(8) , 
ENSHP(8,8) ,RELM(4,9) ,irS(25) .RD(25) ,EDDY(8 , 25) .RGB(25) 

REAL  RDBLK(2692) 

EQUIVALENCE  (PSUR( l) , RDBLK( 1 ) ) 


DO  10  IA=1,NRANG 
DO  10  IS=1.NSIGMA 
SHPDHP(IS.IA)  =  0 
10  CONTINUE 

DO  40  K=1,NSTATN 

IF  (NOFSET(K)  .LT.  2)  GO  TO  40 

CON  =  4./(3.*PI)*RH0*PSUR(K)*RGB(K)**3 

DO  30  IA=1,NRANG 

DO  20  IS=1,NSIGMA 

STADHPdS)  =  CON*SIGMA(IS)*RANG(IA)*EDDY(IA,K) 
STADKP(IS)  =  SIGMA(IS)*STADMP(IS) 

SHPDMP(IS,IA)  =  SHPDMP(1S,I>;  +  STADMP(IS) 

20  CONTINUE 
30  CONTINUE 
40  CONTINUE 

DO  60  IA=1,NRANG 

CALL  SPFIT  (SIGMA, SHPDMP(1.IA),HEELM(1.1,IA).NSIGMA) 
FNHE(IA)  =  ENC0N*REVAL(HEELM(1,ISICMA,IA) ,WTSI) 

50  CONTINUE 


RETURN 

END 


C  DECK  YUNIT2 

SUBROUTINE  YUNIT2  (Vl ,  SI,  Y2) 


*  YUNIT2  created  from  YUNIT  (  MAVSEC-NOeS  )  -  A  M  REED  JULY  1976 

*  unitizes  plame  direction  vector 

DIMENSION  Yl(2),  V2(2) 

S  =  SQRTC  V2(1)*Y2(1)  +  Y2(2)*V2(2)  ) 

IF  (S  .LE.  0.000001*(ABS(Y2(1))+ABS(Y2(2))))  GO  TO  2000 
S1=S 

V1(1)=Y2(1)/S 
V1(2)=V2(2)/S 
GO  TO  99999 
2000  CONTINUE 
S1=0,0 
V1(1)=0.0 
VI (2)=0.0 
99999  CONTINUE 

RETURN 
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C  DECK  VAVMAK 

SUBROUTIIE  VAVHAK 

COMMOH  /CH3D/  ISIGMA.SIGMIK.SIGMAX.V.SIBMU.COSMU.WTSI . 

2  IMMIK.IMMAX.IMDEL.LMIH.LMAX 

REAL  SIGHIN , SIGMAX , V .SINMU . COSMU , WTSI (4) 

INTEGER  ISIGHA , IMMIN , INMAX , IKDEL . LKIN , LMAX 

COMMOH  /EKVIOR/  VK.HVK, MU, HMU, OMEGA, KOMEGA, SIGMA. HSIGMA.SIGWH, 

1  HSIGWH .TMODAL , NTMOD , HRAHG , RANG , RLAHG , S , NNMU , FRNUM . VFS 
INTEGER  HVK , HMU , NOMEGA , HSIGMA , HSIGWH . HTMOD , HRAHG , KNMU (8) 

REAL  VK(8) ,MU(37,8) ,0HEGA(30) ,SIGMA(10) ,SIGUH(4) ,TMODAL(8) , 

2  RAHG(8) ,RLABG(B) ,S(30,8) ,FRHUM(8) ,VFS(8) 

COMMON  /GEOM/  X.NSTATN.Y.Z.HOFSET.LPP, BEAM, DRAFT. LCF, 

1  VCG . GM , DELG“ , NEBLA , KPITCH , KROLL , KY AH , KY AWRL , AWP , VCB . FBDX , FBDY , 

2  FBDZ.HFREBL,  ''T.YPT.ZPT.NPTS.LCB.GKL.ASTAT.BSTAT, TITLE. MASS, 

2  DISPLM , IPITCh , IROLL . lYAW , lYAWRL , CHEAVE , CPITCH , CHEAPI , CROLL , 

2  AREAMX , WSURF . GIRTH , FBD2V , DBLWL , TLCB 

INTEGER  NSTATN.HOFSET(26)  ,NFREBD,NPTS 
CHARACTER*4  TITLE(20) 

REAL  X(25) ,Y(10,25) .2(10,25) ,FBDZV(8,10) .LPP .BEAM, DBLWL .TLCB  , 

2  DRAFT, LCF, VCG, GH.DELGM, NEBLA. KPITCH, KRGLL.KY AW, KYAWRL, AWP, VCB, 

2  FBDX(10),FBDY(10) ,FBDZ(10) .XPT(IO) .YPT(lO) ,ZPT(10) .LCB.GHL, 

4  ASTAT(26) .BSTAT(26) , MASS  , DISPLM . IPITCH . IROLL , lYAW , 

6  lYAWRL , CHEAVE , CPITCH , CHEAPI , CROLL , AREAMX , WSURF , GIRTH ( 25 ) 

COMMON  /INDEX/  PFIDX .LPFIDX ,RMIDX ,LRMIDX,SVIDX .LSVIDX 

INTEGER  LPFT.DX.LRMIDX. LSVIDX 

REAL  PFIDX(236),RMIDX(183) ,SVIDX(3) 

COMMON  /lO/  SYSFIL.POTFIL.COFFIL.LCOFIL.ICARD.TEXFIL.IPRIN, 

2  SCRFIL,HPLFIL,LRAFIL,ORGFIL.RAOFIL,RMSFIL,SEVFIL.SPDFIL. 

2  SPTFIL.LACFIL.LAEFIL 

INTEGER  SYSFIL,POTFIL,COFFIL,LCOFIL.ICARD.TEXFIL,IPRIN, 

2  SCRFIL,RPLFIL,LRAFIL,ORGFIL,RAOFIL,RMSFIL,SEVFIL,SPDFIL, 

2  SPTFIL.LACFIL.LAEFIL 

COMMON  /PHYSCO/  II ,TPI . PI ,PIOT. DEGRAD .RADDEG .VKMETR .METRVK ,GRAV, 

2  RHO , GNU , RHOS . RHOF , GNUS , GNUF . FTMETR . PUN ITS . REYSCL 
COMPLEX  II 

CHARACTER*4  PUNITS(2) 

REAL  TPI , PI . PIOT , DEGRAD , RADDEG , VKMETR , METRVK , GRAY . RHO . GNU . RHOS , 

1  RHOF,  GNUS, GNUF, FTMETR 

COMMON  /RLDBK/  PSUR(25) , BMK(25) , DK(2S ) , CAK (25) . HQ .HSPAN , HMNCHD , 

2  HAREA.iUCr .HYCP,HZCP,HGAMMA,HYHAT,HEAR.HLCS,R0(2) ,RSPAN(2) , 

2  RMNCHD(2) ,RAREA(2) ,RXCP(2) .RYCP(2) .RZCP(2) ,RGAMMA(2) ,RYHAT(2) , 

2  REAR(2) .RLCS(2) ,SQ(2) ,SSPAN(2) ,SMNCHD(2) .SAREA(2) .SXCP(2) , 

2  SYCP(2)  SZCP(2),SCAMHA(2).SYHAT(2),SEAR(2),SLCS(2),BQ(2), 

2  BSPAN(2) ,BMNCHD(2) ,BAREA(2) ,BXCP(2) .BYCP(2) .BZCP(2) ,BGAMMA(2) , 

2  BYHAT(2) ,BEAR(2) ,BLCS(2)  .FQ(2) ,FSPAN(2) .FMNCHD (2) .FAREA (2) , 

2  FXCP(2) .FYCP(2) ,FZCP (2 ) . FGAMMA (2) .FYHAT(2) , FEAR( 2 ) , FLCS( 2) , 

2  rQ(2,2) ,PSPAN(2,2) ,PMNCHD(2,2) .PAREA (2 , 2) , PXCP (2 . 2) . PYCP (2 , 2) . 

2  P2CP(2.2),PGAMMA(2,2) .PYHAT(2,2) ,PEAR(2,2) .PLCS(2,2) . 

2  STADMP(IO) ,SHPDMP(10,8) .ENCON.WPHI ,TPHI , WMELM( 4 , 9) , SFELH(4 , 9 , 8) , 

2  REELM(4,9,8) , PEELM(4 ,9 , 8 )  .FEELM (4 , 9 . 8 ) , HEELM (4 , 9 , 8) , BEELM(4 , 9 , 8 ) , 
2  ENWH,ENSF(8,8) . ENRE( 8) . ENPE(8) . ENFE(8) ,Ef!HE(8) ,EHBE(8) , 

2  ENEMV(8.8) ,ENRL(8) .ENPL(8) .ENFL(8) ,ENHL(8) .ENSL(8) .ENBL(8) , 

2  ENSHP(8,8) .RELM(4,9),ITS(25) ,RD(25).EDDY(8,26) ,RGB(26) 

REAL  RDBLK(2692) 

EQUIVALENCE  (PSUR( 1 ) . RDBLK( 1 ) ) 

COMMON  /SMPSYS/  FIS , AS . SIS , SOS , SDS .HALOS .DEV . PRN . SMPPS , SMPIS , 
SMPOS .SMPDS , SHPTYPS .SHIPS .VARS , CYCLS .TITLES , OPTION , LSIS . LSOS , 
LSDS . LHALOS ,LDEV , LPRN .LSMPPS .LSMPIS , LSMPOS , LSMPDS , LSHPTYPS , 
LSHIPS.LTITLES 
CHARACTER*160  AS 

CHARACTER*80  FIS . SIS, SOS  .SDS .TITLES 

CHARACTER*20  HALOS , DEV , PRN, SMPPS , SMPIS .SMPOS , SMPDS .SHPTYPS 
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CHARACTER  SHIPS*6 , VARS*2  ,CYCLS*2 
IITEGER*2  OPTIOI 

COlfMOH  /TELEM/  TELEM 
COMPLEX  TELEM (4, 9, 10) 

COMPLEX  T22 , T24 , T42 , T44 , T44G (10),CELM(4,9),CT44G, CDUM 
REAL  IR0LLG.I44G 
DATA  EPS  /0.26/ 

FIS  =  SDS( 1 : LSDS)// ’ .COF ’ 

OPEK  (UIIT=COFFIL . FILE=FIS , FORM= ’ UHFORMATTED ’ . STATUS= ’ UHKSOWH ’ ) 
READ  (COFFIL)  TELEM 
CLOSE  (UHIT=COFFIL) 

*  «av«uaking  (origin  at  VCG) 

DO  10  IS=1,IISIGMA 
JS  =  IS 
J  =  1 

IF  (IS  .EQ.  NSIGMA)  JS  =  IS  -  1 
IF  (IS  .EQ.  ISIGMA)  J  =  3 
T44  =  TELEM(J,JS.6) 

T22  =  TELEM(J.JS,6) 

T24  =  TELEM(J,JS,8) 

T42  =  T24 

*  translate  to  VCG 

T44G(IS)  =  T44  +  VCG*(T24  +  T42  +  VCG*T22) 

SHPDMPdS.l)  =  AIMAG(T44G(IS)) 

10  CONTINUE 

CALL  CPFIT  (SIGMA, T44G,CELM, NSIGMA) 

*  lind  natural  roll  Irequency 

C44  =  CROLL 

IROLLG  =  MASS*(KR0LL*BEAM)**2 

I44G=  IROLLG 

WPHI  =  SQRT(C44/I44G) 

TPHI  =  TPI/WPHI 
IDONE  =  0 
DO  20  1=1,10 
IT  =  I 
TS  =  TPHI 

CALL  CPLVAL  (SIGMA, NSIGMA, CELM, WPHI, CT<4G, CDUM, ISIGMA) 

A44G  =  REAL(CT44G)/(-WPHI**2) 

I44G=  IROLLG  ♦  A44G 
IF  (IDONE  .EQ.  1)  GO  TO  30 
WPHI  =  SQRT(C44/I44G) 

TPHI  =  TPI/WPHI 

IF  (ABS(TPHI--TS)  .LT.  EPS)  IDONE  =  1 
20  CONTINUE 
30  CONTINUE 

CALL  FINTSP  (WPHI) 

CALL  SPFIT  (SIGMA, SHPDMP, WHELM, NSIGMA) 

ENCON  =  l./(2.*C44) 

ENWM  =  ENCON  •  REVAL(WMELM(1 .ISIGMA) ,WTSI) 

RETURN 

END 

C  DECK  WEDEFN 

'  SUBROUTIHE  WEDEFH  (KWEVN.WEVN) 


*  This  routine  calculates  the  evenly-spaced  encounter  wave 

*  frequencies  over  which  the  response  spectra  are  calculated. 

*  The  number  of  frequencies  must  be  set  equal  to  100. 

*  y.G. MEYERS,  DTKSRDC,  072877 


DIMENSTOK  VEVN(NV£VN) 
K  =  0 


DWE  c  0.01 
DO  110  1=1,64 
K  =  K  +  1 

110  WEVXK)  =  0.05  ♦  (I-1)*DWE 
DVE  =0.02 
DO  120  1=1,21 
K  =  K  +  1 

120  WEV«(K^  =  WEVN(B4)+I*DWE 
DWE  =0.10 
DO  130  1=1,10 
K  =  K  +  1 

130  WEVS(K)  =  WEVII(76)+I*DWE 
DWE  =0.2 
DO  140  1=1,10 
K  =  K  +  1 

140  WEVH(K)  =  WEVH(85)+I*DUE 
DWE  =0.4 
DO  160  1=1,6 
K  =  K+1 

160  WEVII(K)  =  WEVN(96)  +  I*DWE 

RETIIRH 

END 

C  DECK  WTPELM 

SUBROUTINE  WTPELM ( 1ST ATN ,  PELEM) 

*  out  spline  elemente  lor  2-d  potential  and  forces 

*  U.  R.  MCCREIGHT  DTNSRDC  JULY, 1977 

COMMON  /ENVIOR/  VK , NVK , MU , NMU .OMEGA , NOMEGA , SIGMA , NSIGMA ,SIGWH , 

1  NSIGWH ,TMODAL , NTMOD , NRAHG, RANG ,RLANG ,S , NNMU .FRNUM ,VFS 

I NTEGER  NVK , NMU , NOMEGA , NSIGMA , NSIGWH , NTMOD , NRANG , NNMU (8 ) 

REAL  VK(8) ,MU(37,8) ,0MEGA(30),SIGMA(10),SIGWH(4) ,TM0DAL(8) , 

2  RANG(8) ,RLANG(8),S(30,8) ,FRNUH(8) ,VFS(8) 

COMMON  /GEOM/  X .NSTATN ,Y .Z . NOFSET ,LPP .BEAM .DRAFT .LCF , 

1  VCG . GM , DELGM , NEBLA . KPITCH , KROLL , KY AW . KY AWRL . AWP . VCB . FBDX . FBDY . 

2  FBDZ , NFREBD , XPT , YPT , ZPT . NPTS . LCB , GML . ASTAT . BSTAT , TITLE , M ASS . 

2  DISPLM , IPITCH , IROLL , lYAW ,I YAWRL . CHEAVE , CPITCH , CHEAPI , CROLL , 

2  AREAMX , WSURF .GIRTH , FBDZV .DBLWL , TLCB 

INTEGER  NSTATN , N0FSET(26) , NFREBD , NPTS 

PH  IP  1 TTFR TTTT 

REAL  X(26),Y(10,26) ,Z(10,26) .FBDZV (8, 10) ,LPP, BEAM, DBLWL, TLCB, 

2  DRAFT, LCF. VCG. GM, DELGM. NEBLA, KPITCH. KROLL, KYAW.KYAWRL, AWP, VCB, 
2  FBDX(10),FBDY(10),FBDZ(10),XPT(10) .YPT(IO) ,ZPT(10) .LCB.GML, 

4  ASTAT(26) , BSTAT(25) , MASS .DISPLM , IPITCH . IROLL , lYAW . 

6  I YAWRL , CHEAVE , CPITCH . CHEAPI , CROLL , AREAMX , WSURF , GIRTH (25) 

COMMON  /INDEX/  PFIDX .LPFIDX .RMIDX .LRMIDX.SVIDX .LSVIDX 

INTEGER  LPFIDX, LRMIDX, LSVIDX 

REAL  PFIDX(236) ,RMIDX(183) ,SVIDX(3) 

COMMON  no'  cvsrit  .poTFIL.COFFIL.LCOFIL.ICARD.TEXFIL.IPRIN, 

2  SCRUL.HPLriL.LRA.-IL.Or.oriL.nMuriL.nfiSj  IL,SEVFIL,SPDFIL, 

2  SPTFIL  LACFIL  LAEFIL 

INTEGER  SYSFIL.POTFIL.COFFIL.LCOFIL.ICARD.TEXFIL.IPRIN, 

2  SCRFIL .HPLFIL.LRAFIL.ORGFIL.RAOFIL.RMSFIL.SEVFIL.SPDFIL, 

2  SPTFIL, LACFIL, LAEFIL 

COMMON  /STATE/  LAT . VRT .LOADS , ADDRES . SALT , HEAD , EXROLL , BKEEL 
LOGICAL  LAT , VRT .LOADS , ADDRES , SALT , HEAD , EXROLL , BKEEX 

DIMENSION  DATA(320) 

COMPLEX  PELEM(4,9.40) 

IF  ( NOFSET ( I STATN)  .LE.  0)  RETURN 
IPMIN=1 

IF  (’.NOT.  VRT)  IHMIN  =  2 
IMHAX=4 

IF  (.NOT.  LAT)  IMMAX=3 
IMDEL=2 
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IF  (VRT  .AND.  LAT)  IMDEL=1 

ISGMXsKSIGH^-1 

DO  1  ISIGMAsl ,ISGHX 

HEXT=1 

NNODE=HOFSET ( ISTATM ) 

DO  2  J  =  1.HII0DE 
DO  3  IMODE=IMMIH .  IMMAX ,  IMDEL 
DO  4  1=1.4 

IDX=(IM0DE-1)*>10+J 

DATACirEXT)=REAL(PELEM(I,ISIGMA,IDX)) 

DATA ( NEXT+ 1 )= A I MAG ( PELEM ( I . IS IGMA . IDX ) ) 
HEXT=HEXT^2 
4  CONTIRUE 
3  COHTIHUE 
2  CONTINUE 
KDATP=NEXT-1 

INDEX“(ISIGMA-1)*RSTATR+ISTATN 

♦  change  foz  VAX-11  version. 

♦  CDC  CALL  WRITMSCPOTFIL, DATA. NDATP. INDEX) 

WRITE  (POTFIL,REC=INDEX)  DATA 

1  CONTINUE 

RETURN 

END 

C  DECK  XMSSC 

SUBROUTINE  XMSSC  (IPH . B2 .MSLC .NLCH .RMSLC, RMSSC) 

DIMENSION  B2(NLCH) 

REAL  KSLC(24) .MSSC 
MSSC  =  0. 

LH  =  IPH  -  1 
DO  10  IH=1.NLCH 
LH  =  LH  +  1 

IF  (LH  .GT.  24)  LH  =  LH  -  24 
MSSC  =  MSSC  +  B2(IH)*MSLC(LH) 

10  CONTINUE 

KH  =  IPH  +  5 

IF  (KH  .GT.  24)  KH  =  KH  -  24 
RMSLC  =  MSLC(KH) 

RMSSC  =  MSSC 

RETURN 

END 
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OREWORD 


This  research  was  performed  within  the  Training  Research 
Laboratory  by  the  U.S.  Army  Research  Institute  Aviation  Research 
and  Development  Activity  (ARIARDA) ,  Fort  Rucker,  Alabama,  and  was 
sponsored  by  the  Standards  in  Training  Commission  (STRAC) .  The 
research  was  conducted  in  response  to  two  taskings:  One  from  the 
U.S.  Army  Aviation  Center  (USAAVNC)  and  one  from  the  Department 
of  the  Army.  It  was  accomplished  as  an  annex  to  the  Memorandum 
of  Agreement  between  ARIARDA  and  the  Directorate  of  Training  and 
Doctrine,  dated  15  March  1984. 

Over  the  past  two  decades,  the  Army  has  made  a  significant 
investment  in  rotary-wing  aviator  training  with  the  development 
and  acquisition  of  motion-based  visual  flight  simulators.  One 
example  of  this  type  of  simulator  is  the  AH-64A  Combat  Mission 
Simulator  (CMS) .  With  the  high  expense  of  aircraft  operations 
and  the  decreased  availability  of  live  munitions,  AH-64A  gunnery 
training  in  the  CMS  has  been  viewed  as  a  safe,  cost-effective 
alternative  to  aircraft  training. 

High-fidelity  flight  and  weapons  simulators  have  been 
deployed  to  support  aircrew  training  in  operational  aviation 
units.  However,  little  empirical  data  exist  to  document  the 
training  effectiveness  of  the  simulators.  To  support  the  Army 
deployment  of  the  CMS,  a  research  approach  was  designed  to 
generate  empirical  data  on  the  effectiveness  of  the  AH-64A  CMS 
for  sustaining  gunnery  skills.  The  research  was  designed  to  test 
the  effectiveness  of  simulator  gunnery  training  in  live-fire 
gunnery  exercises.  This  document  reports  the  results  of  that 
research. 

This  report  will  serve  as  a  source  of  information  about  the 
training  effectiveness  and  capabilities  of  the  AH-64A  CMS. 

Results  were  briefed  to  representatives  of  STRAC  in  December  1990 
and  USAAVNC  in  January  1991.  Other  briefings  to  operational 
personnel  were  conducted  from  January  through  March  1991.  The 
information  in  this  report  was  used  to  rewrite  the  Gunnery  Manual 
TC  1-140  and  will  be  effective  for  developing  simulator  training 
strategies  for  aerial  gunnery. 
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TRAINING  EFFECTIVENESS  OF  THE  AH-64A  COMBAT  MISSION  SIMULATOR  FOR 
SUSTAINING  GUNNERY  SKILLS 


EXECUTIVE  SUMMARY 


This  report  describes  the  methods  and  results  of  an  experi¬ 
ment  designed  to  measure  the  effectiveness  of  the  AH-64A  Combat 
Mission  Simulator  (CMS)  for  sustaining  gunnery  skills  in  Army 
aviators.  The  research  was  conducted  by  the  U.S.  Army  Research 
Institute  Aviation  Research  and  Development  Activity. 


Requirement; 

The  Army  has  made  a  significant  investment  in  the  develop¬ 
ment  and  acquisition  of  motion-based,  visual  flight  and  weapons 
simulators  for  training  rotary-wing  aviators.  Most  of  the  simu¬ 
lators  have  been  deployed  to  operational  units  to  help  reduce  the 
training  cost  of  sustaining  flight  and  gunnery  skills  in  profi¬ 
cient  aviators.  However,  the  effectiveness  of  flight  simulators 
in  augmenting  unit  gunnery  training  has  not  been  demonstrated. 
Empirical  data  are  required  to  demonstrate  that  flight  simulators 
are  effective  in  sustaining  gunnery  skills  and  to  determine  the 
extent  that  simulator  training  can  be  used  to  conserve  resources 
such  as  aircraft  flight  time  and  live  ammunition. 

The  research  objectives  of  this  experiment  were  (a)  to 
determine  the  effectiveness  of  the  CMS  for  sustaining  crew  gun¬ 
nery  skills  and  (b)  to  provide  information  on  the  optimum  combi¬ 
nation  of  aircraft  and  CMS  training  for  sustaining  those  skills. 


Procedure : 

An  operational  cavalry  unit  participated  in  a  forward 
transfer-of -training  experiment  designed  to  meet  the  research 
objectives.  An  initial  evaluation  of  AH-64A  crew  gunnery  per¬ 
formance  was  conducted  both  during  a  live-fire  exercise  and 
during  a  CMS  test  scenario.  Subsequently,  crews  were  assigned  to 
one  of  two  groups.  The  simulator  group  crews  continued  normal 
unit  training  and  received  scenario-based  CMS  gunnery  training 
but  were  restricted  from  live-fire  training.  The  control  group 
crews  received  the  normal  unit  training  but  were  restricted  from 
CMS  gunnery  training.  The  training  phase  of  the  research,  origi¬ 
nally  scheduled  for  a  year,  was  shorted  to  6  months  to  meet  proj¬ 
ect  schedules  and  to  minimize  crew  attrition.  Crew  gunnery  per¬ 
formance  was  measured  again  during  a  final  live-fire  exercise  and 
in  the  CMS. 


vii 


Findings: 


Analysis  of  the  Initial  and  final  performance  tests  in  the 
CMS  showed  that  after  five  gunnery  training  sessions  in  the  CMS 
performance  was  consistently  but  not  significantly  improved  in 
the  experimental  group.  However,  the  skill  improvement  did  not 
transfer  to  the  live-fire  range.  The  simulator  group's 
performance  was  not  significantly  better  than  the  control  group 
crew's  performance  during  the  final  live-fire  exercise.  In 
addition,  neither  group  showed  any  indication  of  gunnery  skill 
decay  over  the  course  of  the  experiment.  Because  the  results  did 
not  demonstrate  the  effectiveness  of  the  CMS  for  sustaining 
gunnery  skills  over  6  months,  no  conclusion  can  be  drawn  about 
the  optimum  combination  of  CMS  and  aircraft  training. 


Utilization  of  Findings: 

The  costs  of  AH-64A  gunnery  training  resources  (e.g.,  flight 
and  range  time,  ammunition)  have  increased  the  Army's  dependence 
on  flight  simulators  for  training  that  was  previously 
accomplished  in  the  aircraft.  However,  the  Army  has  not  had 
empirical  data  about  the  training  effectiveness  of  the  CMS  for 
sustaining  gunnery  skills  to  determine  the  optimal  utilization  of 
the  flight  simulator.  Although  the  data  are  limited  by  the 
relatively  short  experimental  period,  two  recommendations  are 
presented  on  the  basis  of  the  research.  First,  if  aircraft  hours 
and  other  forms  of  gunnery  training  continue  at  the  levels 
observed  in  this  research,  CMS  gunnery  training  may  be  required 
only  on  a  semiannual  or  quarterly  basis.  If  the  support  for 
aircraft  hours  and  other  gunnery  training  is  reduced,  gunnery 
skills  may  decay  in  less  than  6  months  and  additional  CMS 
training  will  be  recjuired  to  maintain  gunnery  skills.  Second, 
further  research  is  required  to  investigate  gunnery  skill  decay 
in  proficient  aviators  over  a  12-  to  18-month  period. 
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TRAINING  EFFECTIVENESS  OF  THE  AH-64A  COMBAT  MISSION  SIMULATOR 

FOR  SUSTAINING  GUNNERY  SKILLS 


Introduction 

During  the  past  two  decades,  the  U.S.  Army  has  committed 

hundreds  cf  millions  of  dollars  to  the  development  and 
acquisition  of  motion-based  visual  flight  simulators  to 
augment  helicopter  pilot  training.  The  simulator  cockpits 
are  constructed  from  the  same  components  used  to  build  the 
aircraft  and  consequently  produce  high-fidelity  simulations 
of  the  controls  and  displays  in  the  aircraft.  The  hardware 
environments  are  supported  with  powerful  mainframe  computer 
systems  capable  of  generating  and  displaying  the  results  of 
aircraft,  aerodynamic,  meteorological,  geographic,  tactical, 
and  weapons  modeling. 

Flight  simulators  are  a  means  of  obtaining  operational 

readiness  at  an  acceptable  cost.  Relatively  inexpensive 
simulator  training  is  used  as  a  cost-effective  alternative  to 
more  expensive  aircraft  training.  In  fact,  the  primary 
justification  for  the  Army's  Synthetic  Flight  Training  System 
(SFTS)  has  been  the  economy  of  simulator-f or-aircraf t 
substitution  (see  Hopkins,  1979) . 

There  are  o'  least  two  other  benefits  of  simulator-based 
training.  One  is  increased  safety.  A  large  number  of 
emergency  procedures  that  are  inherently  dangerous  in  the 
aircraft  can  be  practiced  in  the  simulator  (e.g.,  engine  or 
tail-rotor  failures) .  Aviator  proficiency  in  these 
procedures  translates  into  saved  lives  and  equipment.  Day-to- 
day  aircraft  operations  are  not  likely  to  provide  the  practice 
in  these  maneuvers  that  simulators  can. 

The  second  major  benefit  of  simulators  is  that  scenarios 

can  be  created  that  model  the  danger  and  complexity  of  the 

modern  battlefield.  A  realistic  force-on-force  training 
scenario  is  difficult  (or  impossible)  to  accomplish  in  the 
aircraft  during  peacetime.  By  necessity,  training  at  Army 
gunnery  ranges  arrays  a  maximum  of  firepower  against  only  the 
semblance  of  a  threat  and  consists  of  regimented  procedures 
designed  to  maximize  the  safety  of  the  participants  and  the 
surrounding  community.  In  contrast.  Army  tacticians  foresee 
the  modern  battlefield  as  dynamic  and  dangerous.  With  an 
interactive  threat,  unlimited  ammunition,  and  unrestricted 
firing  opportunities,  flight  simulators  can  potentially  train 
Army  aviators  to  fight  and  survive  in  a  realistic  wartime 
environment . 


The  Army  has  acquired  39  high  fidelity  flight  fimulators 
to  support  aviator  training  for  the  AH-1  Cobra,  UH-60  Black 
Hawk,  CH-47  Chinook,  and  AH-64  Apache  aircraft,  The 
majority,  including  7  AH-1  Flight  and  Weapons  Simulators 
(AKlFWSs),  15  UH-60  Flight  Simulators  (UH60FSs),  5  CH-47 
Flight  Simulators  (CH47FSs) ,  and  5  AH-64A  Combat  Mission 
Simulators  (CMSs) ,  have  been  delivered  to  operational 
aviation  units  for  unit  training.  The  remainder,  consisting 
of  2  AHlFWSs,  2  UH60FSS,  1  CH47FS,  and  1  CMS,  are  used  for 
institutional  training  at  the  U.S.  Army  Aviation  Center 
(LSAAVNC)  . 


With  the  acquisition  of  these  resources,  the  Army  has 
corimitted  simulators  to  accomplish  two  different  types  of 
training:  institutional  and  unit.  Institutional  training 

refers  to  the  initial  flight  and  weapon  systems  training 
given  to  Army  aviators.  Unit  training  refers  to  the  training 
given  to  Army  aviators  after  they  have  completed 
institutional  training  and  have  been  assigned  to  an 
operational  unit.  The  primary  goal  of  institutional  training 
is  the  acquisition  of  individual  skills.  In  contrast,  the 
primary  goal  of  unit  training  is  the  acquisition  of  crew  and 
team  skills  and  the  sustainment  of  all  skills  (i.e., 
individual,  crew,  and  team). 

With  the  acquisition  of  the  simulators,  the  Army 
initiated  research  to  address  questions  about  the 
effectiveness  of  the  rotary  wing  simulators  and  about  the 
tasks  that  can  be  trained  in  the  simulators.  Previous 
research  had  demonstrated  the  value  of  simulators  for  the 
acquisition  of  basic  flight  and  procedural  skills  ir  fixed 
wing  aircraft  (see  Jacobs,  Princc,  Hays,  &  Salas,  1990,  and 
Valverde,  1973,  for  reviews).  However,  the  number  of 
exper iment s  conducted  on  rotary  wing  simulators  was  sm^al  1  by 
comparison  (Holman,  1979;  Bridgers,  Bickley,  &  Maxwell,  1960; 
Luckey,  Bickley,  Maxwell,  &  Cirone,  1982).  Unfortunately, 
the  experiments  that  demonstrated  the  effectiveness  of 
existing  simulators  had  not  also  identified  the 
characteristics  of  the  simulators  that  mediate  the  effective 
t rans  f er  of  skills  (Or Ian sky  &  String,  1977),  Without  a 
clear  understanding  of  the  mechanisms  of  successful  skill 
acquisition  in  fixed  wing  simulators,  the  Army  could  not 
assume  that  the  fixed  wing  results  would  generalize  to  rotary 
v;  i  n  c:  si  mu  1  a  t  o  r  s  . 

Another  theoretical  and  practical  question  of  concern  to 
the  Army  is  whether  skilis  that  can  be  acquired  in  the 
simulator  can  also  be  sustained  in  the  simulator.  The 
effectiveness  of  simulators  has  not  been  as  thoroughly 
researched  for  skill  sustainment  as  for  skill  acquisition. 

In  the  study  of  skill  sustainment,  the  proficient  aviator  can 
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be  assumed  to  have  learned  the  environmental  stimuli  that 
determine  the  appropriate  actions  and  reactions  in  the 
aircraft.  However,  once  skills  are  refined  in  the  aircraft, 
the  simulator  may  not  provide  the  necessary  stimuli  to 
maintain  the  skill.  Thus,  without  specific  knowledge  about 
the  mechanisms  of  successful  transf er-of-training,  questions 
of  the  effectiveness  of  a  particular  simulator  for  the 
acquisition  or  sustainment  of  skills  must  be  answered 
empirically . 


The  research  described  in  this  report  was  initiated  as  a 
result  of  three  administrative  events,  which  are  described  in 
che  following  three  sections. 

Flight  simulation  plan  audits.  Almost  all  the  resources 
expended  by  the  Army  on  the  SFTS  program  have  been  for  the 
development  and  acquisition  of  the  simulators.  The  resources 
devoted  to  research  on  how  to  use  the  simulators  effectively 
have  been  small  by  comparison.  Thus,  the  specific  effects 
that  flight  simulators  are  capable  of  accomplishing  in  Army 
aviator  training  have  not  been  empirically  determined. 

In  two  audits  of  the  SFTS,  first  in  1981  and  again  in 
1984,  the  Army  Audit  Agency  (AAA)  recognized  the  lack  of 
research  documenting  the  effectiveness  of  simulators  for 
sustaining  helicopter  flight  and  gunnery  skills.  The  AAA 
reports  (U.S.  Army  Audit  Agency,  1982,  1985)  stated  that, 

although  flight  simulators  had  reduced  the  training  costs  and 
improved  training  at  the  USAAVNC,  the  Army  had  not  determined 
the  effects  that  flight  simulators  have  on  unit  training. 
Specifically,  both  reports  admonished  the  Army  for  the 
operational  tests  conducted  on  tlie  SFTS  and  concluded  that 
the  Army  had  not  adequately  quantified  the  return  on  its 
investment  in  flight  simulators  procured  for  unit  training. 

DA  tasking.  In  1986,  the  Department  of  the  Army  (DA) 
tasked  the  Army  Research  Institute  Aviation  Research  and 
Development  Activity  (ARIARDA) ,  through  the  Training  and 
Doctrine  Command  (TRADOC),  to  plan  and  initiate  postfielding 
training  effectiveness  analyses  (TEAs)  of  each  of  the  Army's 
flight  simulator  systems.  The  TEAs  were  intended  to 
investigate  the  utilization  and  training  effectiveness  of 
Army  flight  simulator  systems  in  operational  field  units  and 
to  provide  a  basis  for  developing  effective  unit  training 
strategies.  In  respons-  to  the  tasking,  ARIARDA  developed  a 
research  plan  comprisiiig  a  series  of  related  research 
projects  (U.S.  Army  Re;  arch  Institute  Aviation  Re.search  and 
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Development  Activity,  1986;  Cross  &  Gainer,  1987) .  Each 
project  was  designed  to  investigate  the  effectiveness  of  a 
flight  simulator  system  for  training  a  set  of  specific  tasks 
(e.g.,  contact  and  emergency  flight  tasks,  weapons  tasks)  in 
an  operational  environment.  Four  of  the  projects  have 
subsequently  been  completed  with  the  AHl’^WS  (Kaempf,  Cross,  & 
Blackwell,  1989;  Kaempf  &  Blackwell, 1990;  McAnulty  &  Kaempf, 
1991)  . 

Gunnery  manual  revisions.  Concurrent  with  the  DA 
tasking,  the  Department  of  Tactics  and  Simulation  (DOTS; 
formerly  the  Department  of  Gunnery  and  Flight  Systems) 
proposed  revisions  to  the  helicopter  gunnery  training  manual 
(FM  1-140;  Department  of  the  Army,  1986) .  FM  1-140  defines 
the  training  requirements  and  performance  standards  for  the 
Army's  aerial  gunnery  training  program.  In  response  to 
increasing  pressure  to  reduce  the  requirements  tor  training 
ammunition,  DOTS  proposed  significant  changes  to  the  crew 
gunnery  training  requirements  and  standards  for  the  AH-64A 
aircraft  in  the  coordinating  draft  of  the  revised  helicopter 
gunnery  manual  (TC  1-140;  USAAVNC,  1988) .  For  example,  DOTS 
proposed  to  conduct  all  AH-64A  crew  gunnery  training  and 
qualification  in  the  CMS.  No  ammunition  was  provided  for 
crew  training  and  qualification;  ammunition  was  provided  only 
for  training  attack  helicopter  teams  and  conducting  combined 
arms  live-fire  and  joint  air  attack  team  (JAAT)  exercises. 
While  considering  the  substitution  of  simulator  gunnery 
training  for  live-fire  gunnery  training,  DOTS  personnel 
identified  a  need  for  information  on  the  effectiveness  of  the 
CMS  for  gunnery  training. 

Twenty-two  months  later,  DOTS  released  the  approved 
draft  of  the  helicopter  gunnery  manual  (TC  1-140;  USAAVTJC, 
1990) .  In  this  version  of  TC  1-140,  the  proposal  that  all 
AH-64A  crew  gunnery  be  conducted  in  the  CMS  was  dropped  and 
the  available  training  ammunition  was  redistributed  among  the 
gunnery  tables,  this  time  with  more  for  the  crew  tables  and 
less  for  the  team  tables.  The  document  continued  to  predict 
thac  "reductions  in  service  ammunition  for  training  are 
inevitable"  and  suggested  t‘  .v  unit  commanders  use  the  CMS 
and  AH-1  simulator  to  "helj  .::ircrews  maintain  their 
proficiency  between  live-fire  exercises  and  reduce  the  need 
to  use  live  ammunition  for  certain  tasks"  (p.  B-1)  . 


CMS  Effectivenes.^  for  Sustaining  Gunnery  Skills 

Operational  unit  commanders  are  faced  with  increasing 
pressure  to  reduce  training  ammunition  requirements  and  use 
the  most  efficient  and  effective  mix  of  simulator  and 


aircraft  training.  There  is  little  empirical  data  to 
demonstrate  the  effectiveness  of  flight  simulators  in 
augmenting  unit  gunnery  training.  Empirical  data  are 
required  to  demonstrate  that  flight  simulators  can 
effectively  train  gunnery  skills  and  to  determine  the  extent 
that  training  conducted  in  simulators  can  be  used  to  conserve 
training  resources  such  as  aircraft  flight  time  and  live 
ammunition . 


This  report  describes  research  on  the  training 
effectiveness  of  the  AH-64A  CMS  for  sustaining  gunnery 
skills.  It  is  one  of  a  group  of  projects  planned  by  ARIARDA 
in  response  to  the  DA  tasking  for  TEAs  on  each  of  the  Army' s 
simulators.  In  addition,  ARIARDA  agreed  to  focus  the  initial 
TEAS  on  the  effectiveness  of  the  CMS  for  training  and 
sustaining  crew  gunnery  skills  at  the  request  of  the  Army 
Standards  in  Training  Commission  (STRAC)  and  DOTS. 

Therefore,  the  research  was  designed  to  meet  two  major 
objectives : 

•  determine  the  effectiveness  of  the  CMS  for  the 
sustainment  of  crew  gunnery  skills,  and 

•  provide  data  to  establish  an  optimum  combination  of 
aircraft  and  flight  simulator  training  for  the 
sustainment  of  crew  gunnery  skills. 


In  addition  to  the  objectives  described  above,  STRAC  and 
DOTS  requested  an  evaluation  of  the  ammunition  requirements 
and  gunnery  standards  for  AH-64A  crew  qualification  published 
in  the  revised  helicopter  gunnery  manual.  The  research 
addressing  these  issues  is  published  in  a  separate  report 
(Hamilton,  1991 ) . 


Design  Considerations 


The  value  of  any  training 
effectively  training  transfers 
the  case  of  flight  simulators, 
training  that  can  be  conserved 


experience  depends  upon  how 
to  the  operational  task.  In 
the  amount  of  aircraft 
as  a  function  of  simulator 


training  is  a  direct  measure  of  the  training  effectiveness  of 
the  simulator.  The  transfer  of  skills,  facts,  and  attitudes 
can  be  positive  or  negative.  Positive  transfer  occurs  when 
learning  simulator  skills  facilitates  the  acquisition  of 
aircraft  skills.  Negative  transfer  occurs  when  learning 
simulator  skills  interferes  with  the  acquisition  of  aircraft 
skills . 


The  methods  for  quantifying  i-.he  transfer  of  training  and 
training  effectiveness  of  aircraft  simulators  are  well 
developed  and  quantitative  (Roscoe  &  Williges,  1980;  Roscoe, 
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1971),  especially  for  skill  acquisition.  Basically,  the 
method  uses  a  simple  ratio  to  quantify  the  value  of  training 
t ime  in  the  simulator  in  terms  of  the  aircraft  time  saved . 

At  a  minimum,  some  measurable  difference  must  exist  between 
the  performance  of  the  experimental  and  control  groups  to 
demonstrate  training  effectiveness.  If  the  information 
obtained  from  training  research  is  sufficiently  detailed,  the 
ratio  can  be  calculated  for  incremental  amounts  of  time  in 
the  simulator  to  describe  an  entire  function  called  the 
incremental  transfer  effectiveness  function.  The  function  is 
described  as  being  negatively  decelerated,  meaning  that  the 
effectiveness  of  any  training  experience  decreases  with 
exposure  to  that  experience.  The  hypothetical  shape  of  the 
function  is  demonstrated  by  the  curve  labeled  "training 
effectiveness"  in  Figure  1 . 

The  design  of  research  that  demonstrates  skill 
sustainment  is  different  from  research  that  demonstrates 
skill  acquisition.  The  differences  are  illustrated  by  the 
learning  curve  labeled  "skill"  in  Figure  1,  which 
demonstrates  how  skills  are  typically  acquired .  Initially, 
with  no  skill  level  present ,  training  is  highly  effective  in 
increasing  skill  levels.  As  skill  is  acquired,  increasing 
amounts  of  training  produce  less  skill  acquisition  and,  at 
some  point,  becomes  skill  sustainment.  Research  to  quantify 
skill  acquisition  assumes  that  both  the  experimental  and 
control  groups  are  on  the  initial,  accelerating  part  cf  the 
curve  with  low  skill  levels  and  that  training  effectiveness 
can  be  demonstrated  as  soon  as  the  simulator  is  effective  in 
transferring  skills  to  the  experimental  group. 
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Figure  1 .  Hypothetical  relationships  between  the 
acquisition  of  skill  and  training  effectiveness. 
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In  contrast,  research  to  quantify  skill  sustainment 
assumes  that  both  the  experimental  and  control  groups  are  on 
the  asymptotic  part  of  the  curve.  Training  effectiveness  is 
difficult  to  demonstrate  by  transferring  skills  to  the 
experimental  group  when  both  groups  already  have  high  levels 
of  skill,  simply  because  very  little  further  learning  can 
occur.  If  skills  arc  sufficiently  well  developed  before  the 
initiation  of  the  research,  the  only  way  to  bring  about  the 
difference  in  performance  needed  to  demonstrate  training 
effectiveness  is  to  allow  the  control  group's  skills  to 
decay.  If  the  simulator  is  effective  in  maintaining  the 
experimental  group  skills  while  the  control  group  skills 
decay,  then  training  effectiveness  is  demonstrated.  If  the 
simulator  is  not  effective  in  sustaining  the  experimental 
group  skills,  they  will  decay  along  with  the  control  group. 

Thus,  the  question  of  how  long  it  takes  for  AH-64A 
gunnery  skills  to  decay  is  critical  to  the  design  of  this 
research  project.  Ruffner  and  Bickley  (1983)  and  Ruffner, 
Wick,  and  Bickley  (1984)  studied  the  decay  of  procedural  and 
psychomotor  flight  skills  in  active  duty  and  reserve  Army 
aviators.  Ruffner  et  al.  stated  that  skill  decay  may  have  a 
critical  period  between  6  and  12  months.  Before  this  period, 
little  proficiency  loss  is  expected;  after  the  period, 
operationally  important  loss  occurs,  followed  by  a  very  long 
period  where  additional  loss  is  relatively  small. 


Initial  Research  Effort 

The  research  described  in  this  report  was  preceded  by  an 
unsuccessful  attempt  to  conduct  a  CMS  TEA  project.  The 
initial  research  design  proposed  that  AH-64A  crew  gunnery 
skills  be  measured  during  a  pretest  live-fire  gunnery 
exercise.  Subsequently,  each  crew  would  be  assigned  to  one 
of  three  different  training  groups:  a  control  group  and  two 
experimental  groups .  All  groups  would  receive  the  normal 
program  of  instruction  for  the  unit.  One  experimental  group 
would  receive  CMS  gunnery  training;  the  other  group  would 
receive  dry-fire  gunnery  training  in  the  aircraft;  and  the 
control  group  would  be  restricted  from  gunnery  training  in 
either  the  CMS  or  in  the  aircraft.  The  gunnery  training 
would  be  controlled  in  each  group  for  1  year.  At  that  time, 
crew  qunnery  skills  would  again  be  evaluated  during  a 
posttest  live-fire  exercise.  The  effectiveness  of  the  CMS 
would  be  evaluated  by  comparing  the  differential  performance 
of  the  three  groups  between  the  pretest  and  posttest 
exerc ises . 
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The  research  was  begun  as  described  above  when  live-fire 
performance  data  were  collected  on  15  crews.  The  Army  unit 
participating  in  the  research  was  unable  to  assign  other 
crews  to  the  project  because  of  anticipated  personnel 
turnover.  Consequently,  live-fire  data  were  collected  3 
months  later  for  an  additional  12  crews.  By  that  time,  4  of 
the  original  crews  were  unable  to  participate  in  the  research 
because  at  least  one  of  the  crewmembers  was  assigned  to 
another  unit.  At  the  initiation  of  the  training  phase  of  the 
research,  there  were  9  crews  in  the  control  group,  8  crews  in 
the  aircraft  training  group,  and  6  crews  in  the  simulator 
training  group. 

Within  1  month,  crew  attrition  was  so  high  that  the 
research  design  was  reevaluated.  Several  factors  contributed 
to  the  attrition  of  crev/s .  A  major  storm  damaged  many  of  the 
operational  aircraft  at  the  participating  installation. 
Because  of  the  lack  of  aircraft,  some  aviators  were 
transferred  to  other  units  or  types  of  aircraft.  In 
addition,  some  crewmembers  were  transferred  to  another  unit 
because  of  a  high  priority  training  mission.  Finally,  crew 
attrition  was  exacerbated  because  the  loss  of  either 
crewmemiber  constituted  the  loss  of  the  entire  crew.  The 
possibility  of  conducting  the  research  over  the  course  of  an 
entire  year  was  eventually  precluded  by  the  attrition  of 
participating  crews.  Therefore,  an  alternative  research  plan 
was  developed  and  the  current  research  effort  was  initiated. 


Method 


General  Procedures 

The  revised  research  plan  was  divided  into  three  phases 
(see  Figure  2) .  During  Phase  1,  an  initial  evaluation  of 
AH-64A  crew  gunnery  performance  was  conducted  during  a  live- 
fire  exercise  and  during  a  CMS  test  scenario.  During  the 
live-fire  exercise,  the  crew  fired  a  set  of  crew  gunnery 
engagements  developed  by  the  participating  unit  and  referred 
to  as  Table  VIII.  During  the  CMS  test,  the  crews  fired 
against  targets  designated  in  a  mission  scenario  developed  by 
the  researchers  and  the  unit  standardization  instructor 
pilots  (SIPs) .  The  primary  measures  of  gunnery  performance 
collected  during  the  live-fire  exercises  and  the  CMS  test 
scenario  were  target  effect  and  engagement  time.  In 
addition,  the  participating  aviators  completed  a  demographic 
survey  describing  their  skill  and  training  at  the  initiation 
of  the  research. 
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Figure  2.  Flow  chart  of  principal  phases  in  the  experimental 
design , 


In  Phase  2,  crews  were  assigned  to  one  of  two  groups: 
an  experimental  group  that  received  scenario-based  gunnery 
training  in  the  CMS  and  a  control  group  that  was  restricted 
from  gunnery  training  in  the  CMS.  The  training  phase  of  the 
research  was  shortened  to  only  6  months  to  achieve  project 
schedules  and  to  minimize  crew  attrition.  The  frequency  of 
other  non-CMS  gunnery  training  activities  was  also  recorded 
during  this  period. 

In  Phase  3,  crew  gunnery  performance  was  measured  during 
a  final  live-fire  exercise  and  in  the  CMS.  The  effectiveness 
of  the  CMS  was  evaluated  by  measuring  the  differential 
performance  of  the  training  groups  between  the  pretest  and 
posttest  in  the  CMS  and  during  the  live-fire  exercises. 
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Apparatus 


Two  flight  systems  (the  AH-64A  aircraft  and  the  AH-64A 
CMS)  and  a  scoring  system  were  used  during  this  research. 

Each  of  these  systems  is  described  in  the  following  sections. 

AH-64A  aircraft.  The  AH-64A  (see  Figure  3)  is  a  twin 
engine,  four-bladed  helicopter  with  a  maximum  gross  weight  of 
17,650  pounds  and  an  approximate  height,  width,  and  length 
(excluding  the  rotor  system)  of  15  ft,  17  ft,  and  49  ft, 
respectively.  The  two  crewmembers,  a  pilot  (PLT)  and  a 
copilot/gunner  (CPG) ,  are  seated  in  tandem  with  the  PLT 
behind  and  above  the  CPG.  The  AH-64A  is  a  weapons  platform 
equipped  with  point  target  (Hellfire  missile) ,  area  weapon 
(30  mm  chain  gun),  and  aerial  rocket  (2.75-inch  folding-fin 
type)  systems.  The  helicopter  is  equipped  with  a  laser  range 
finder/designator  (LRF/D) ,  a  pilot  night  vision  system 
(PNVS),  and  a  CPG  target  acquisition  and  designation  system 
(TADS)  that  allow  the  crew  to  operate  the  helicopter  at  night 
and  under  adverse  weather  conditions.  The  AH-64A  can  acquire 
and  fire  on  targets  in  a  large  number  of  different  operating 
modes .  Additionally,  an  on-board  video  recorder  subsystem 
(VRS)  can  record  the  imagery  and  symbology  being  displayed  by 
either  the  PNVS  or  TADS.  The  operation  of  the  aircraft  is 
described  in  the  Operator's  Manual  for  the  AH-64A  Helicopter 
(Department  of  the  Army,  1984). 


Figure  3.  Diagram  of  the  AH-64A  aircraft. 


AH- 64 A  CMS.  Tba  evaluation  of  the  gunnery  training 
effectiveness  of  the  AH-64A  CMS  was  the  primary  focus  of  this 
research.  The  AH-64A  CMS  is  a  flight  and  weapons  simulator 
designed  for  training  aviators  in  the  use  of  the  AH-64A 
Apache  helicopter.  The  CMS  consists  of  two  flight  simulator 
compartments  (PLT  and  CPG) ,  each  having  a  six-degree-of - 
freedom  motion  base.  Each  compartment  simulates  the 
helicopter  environment  using  a  multichannel  digital  image 
generator,  three  pairs  of  loudspeakers,  a  subwoofer,  and  a 
seat  vibrator.  The  simulator  is  operated  in  an  integrated 
mode  for  crew  training  or  in  an  independent  model  for 
individual  training.  Additionally,  each  compartment  has  an 
instructcr/operator  (1/0)  station  and  an  observer  station. 

The  operation  and  capabilities  of  the  CMS  are  fully  described 
in  the  Operator's  Manual  for  the  AH-64A  (Apache)  Combat 
Mission  Simulator  (Department  of  the  Army,  1988) . 

Area  Weapons  Scoring  System.  The  Army  has  sponsored  the 
development  of  a  scoring  system  for  attack  helicopter  live- 
fire  training  and  evaluation  designated  the  Area  Weapons 
Scoring  System  (AWSS) .  The  AWSS  was  used  during  the  initial 
and  final  live-fire  exercises  for  objective  scoring  of  AH-64A 
gunnery  performance.  Although  the  Army  plans  to  acquire  a 
number  of  the  systems,  the  AWSS  used  in  this  research  was  the 
proof -of-principle  system  installed  on  the  Dalton-Henson 
Multipurpose  Range  Complex  at  Fort  Hood,  Texas. 

The  AWSS  consists  of  the  Ballistic  Scoring  Subsystem 
(BSS)  for  30  mm  projectiles,  the  Detonation  Scoring  Subsystem, 
(DSS)  for  rockets,  and  the  Computer  Scoring  Subsystem  (CSS) 
for  score  calculation,  display,  and  hard-copy  production. 

The  BSS  (see  Figure  4)  uses  special  purpose,  Doppler  radar 
sensors  to  detect  the  rounds  that  penetrate  a  15  m  radius  fan 
in  front  of  each  target.  The  30  mm  rounds  that  penetrate  the 
Doppler  fan  are  counted  as  hits;  those  outside  the  fan  are 
counted  as  misses.  No  information  about  the  exact  location 
of  the  hits  or  misses  is  provided  by  the  BSS,  but  AWSS 
personnel  could  detect  when  the  target  was  struck  by  a  burst . 

The  DSS  (see  Figure  5)  is  an  acoustical  system  that 
determines  the  geographic  location  of  rocket  impacts.  It 
consists  of  10  microphone  sensors  placed  within  1000  m  of  the 
target.  During  a  rocket  engagement,  each  sensor  transmits 
the  acoustical  signal  that  it  receives  to  the  CSS.  Using  the 
known  position  of  the  sensors  and  the  physics  of  sound 
propagation,  the  CSS  analyzes  the  signals  from  several 
sensors  to  compute  the  impact  point,  cross  range  miss 
distance,  and  down  range  miss  distance  for  each  rocket.  The 
system  reliably  determines  the  location  of  rocket  im, pacts  up 
to  approximately  350  m.  from  the  target.  Rockets  falling 
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Figure  5.  Diagram  of  the  Detonation  Scoring  System  of  the 
Area  Weapons  Scoring  System. 


beyond  the  range  of  350  m  are  not  detected  or  have  a  large 
location  errors. 

The  proof “Of“principle  AWSS  had  three  notable 
limitations  associated  with  the  DSS.  First,  at  the 
initiation  of  the  project,  the  system  was  not  reliably 
scoring  Multi-Purpose  Submunition  (MPSM)  rocket  engagements. 
M?SM  rockets  were  not  used  during  the  live-fire  exercises. 
Second,  the  system  was  not  reliably  scoring  multiple  rocket 
engagements.  Third,  the  acoustically  based  DSS  was 
susceptible  to  interference  from  any  other  loud  events  such 
as  the  30  mm  gun  firing.  Because  of  these  limitations,  the 
four  rockets  that  made  up  each  engagement  were  fired 
individually  with  approximately  30  to  60  seconds  between 
launches,  and  no  engagements  were  fired  simultaneously . 


Materials 

Data  forms.  Two  types  of  data  forms  were  developed  and 
used  to  collect  information  from  participating  aviators:  an 
AH-64  CMS  Gunnery  Research  Program  Demographic  Survey  and  a 
Postflight  Debriefing  form.  The  AH-64  Demographic  Survey 
(see  Appendix  A)  was  designed  to  collect  personal,  training, 
flight,  and  gunnery  range  experience  that  was  used  to 
characterize  the  experience  of  the  aviators  who  participated 
in  the  research.  As  noted  in  the  general  procedures,  the 
survey  was  completed  by  all  aviators  during  the  initial  live- 
fire  exercises  . 

The  Post flight  Debriefing  form  (see  Appendix  B)  was 
designed  to  collect  information  about  the  specific  gunnery 
tasks  performed  during  the  training  phase  of  the  research. 
Each  aviator  was  instructed  to  complete  the  form  after  each 
flight  in  the  AH-64A  aircraft,  the  CMS,  or  Cockpit,  Weapons, 
and  Emergency  Procedures  Trainer  (CWEPT) . 

Live-fire  crew  gunnery  table.  The  unit  crew 
qualification  table  used  in  the  experiment  was  designed  for 
the  Dalton-Henson  Multipurpose  Range  Complex  (see  Table  1). 
The  table  contains  2  calibration  and  18  normal  engagements 
employing  all  three  AH-64A  weapon  systems.  It  was  used  for 
both  day  and  night  training .  The  engagements  were  fired  f rom 
seven  firing  points  toward  13  targets  (see  Figure  6) .  The 
distance  from  the  firing  points  to  the  targets  ranged  from 
975  m  to  2575  m  for  the  30  mm  gun,  from  3450  m  to  4500  m  for 
the  rockets,  and  from  2100  m  to  4620  m  for  the  missiles.  All 
engagements  were  fired  from  a  stationary  hover  with  the 
except  ion  of  the  two  30  rrjn  engagements  that  were  fired  from  a 
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Table  1 


Initial  and 

Final  Live 

-Fire  Gunnery 

Table 

Firing 

Point 

Weapon 

System 

Target 

Number 

Target 

Distance 

Rounds 

la 

30  mm 

1-7A,B 

975 

20 

Rockets 

R3 

3700 

4 

1 

30  mm 

1-7A,B 

975 

20 

Rockets 

R3 

3700 

4 

Hellfire 

R4 

3835 

2 

30  mm 

9A 

1066 

20 

Rockets 

R2 

3450 

4 

Hellfire 

R2 

3450 

3 

30  mjT\ 

1-5A,B 

1700 

20 

Rockets 

R3 

4500 

4 

Hellfire 

P2 

4  350 

T 

J. 

4 

30  mm 

8A 

1645 

20 

Rockets 

R2 

4400 

4 

Hellfire 

R3 

4620 

1 

5 

30  mm 

8B 

1400 

20 

6 

30  iTim 

9B 

1100 

20 

7 

Hellfire 

43 

3775 

1 

Hell f i re 

32 

2350 

1 

Hellfire 

31 

2100 

]_ 

3  0  mm 

34 

2575 

20 

Note ,  The  30  min  engagements  employed  target  practice  (TP) 
rounds  and  the  rocket  engagements  employed  target  practice 
point  detonating  (TP/PD)  warheads  with  Mark  66  motors;  the 
Hellfire  engagements  were  simulated. 

^calibration 


moving  hover  at  firing  points  5  and  6.  The  arrows  in  Figure 
6  indicate  the  direction  of  movement  of  the  targets  and 
aircraft,  if  any  occurred . 

CMS  scenario.  A  single  gunnery  scenario  was  developed 
to  test  and  train  crew  gunnery  performance  in  the  simulator . 
The  I/O  situation  and  target  handover  sheet  used  to  implement 
the  scenario  are  presented  in  Appendix  C.  The  scenario 
exercised  all  weapons  systems  (30  itjt.,  rockets,  and  missiles), 
target  m^odes  (moving  and  stationary),  and  aircraft  modes 
(stationary  and  moving  hover)  at  a  variety  of  target  ranges. 
The  scenario  contains  engagements  similar  to  those  in 
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Figure  6.  Configuration  of  the  firing  points  and 
targets  at  the  Dalton-Henson  Multipurpose  Range 
Complex,  Fort  Hood,  Texas. 


Table  1,  but  30  mm  target  distances  are  greater  than  in  Table 
1  because  engagements  shorter  than  2000  m  are  difficult  to 
create  in  the  s.^mulator.  Additionally,  the  missile 
engagement  distc.ices  in  the  simulator  are  longer  than  in 
Table  1  because  engagements  longer  than  5000  m  are  difficult 
to  create  on  the  live-fire  range. 

The  tactical  scenario  was  conducted  with  a  temperature 
of  15°,  a  visibility  of  7600  m  ,  a  ceiling  of  3000  ft,  a  wind 
of  5  kts  at  300°,  and  a  barometric  pressure  of  29.92  in.  The 
CM.9  threat  lethality  was  set  to  5  with  hostility  interrupt 
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on.  The  visual  mode  (VM)  and  scene  illumination  (SI)  were 
changed  to  simulate  day  and  night  (Day:  VM  =  2,  SI  =  5; 
Night  :  VM  =  1,  SI  =  11)  . 


Personnel 

The  three  types  of  personnel  participating  in  this 
research  (AH-64A  aviators,  CMS  I/Os,  and  range  scoring 
personnel)  are  described  in  the  following  sections. 

AH-64A  aviators .  Initially,  30  qualified  and  current 
AH-64A  crews  (60  aviators)  were  selected  to  serve  as  subjects 
for  the  study.  All  crews  from  three  squadrons  of  an 
operational  cavalry  brigade  who  were  scheduled  to  remain  in 
the  unit  for  at  least  6  months  were  selected  to  participate. 
Because  Army  policy  restricts  females  from  gunship 
operations,  all  aviators  were  male.  The  experimenter,  with 
the  assistance  of  brigade  and  squadron  SIPs,  formed  two 
matched  groups  on  the  basis  of  qualitative  estimates  of 
aviator  experience  and  sl:ill.  Fifteen  crews  were  assigned  to 
the  experimental  (simulator)  group  and  fifteen  crews  were 
assigned  to  the  control  (no  simulator)  group. 

Before  U.S.  troop  deployment  to  the  Persian  Gulf,  crew 
attrition  was  minimal  (3  crews)  and  unrelated  to  crew 
performance  (i.e.,  permanent  change  of  station,  medical 
grounding) .  An  additional  9  crews  were  lost  to  operational 
units  of  the  Central  Command  before  the  final  performance 
tests.  Fortunately,  crew  loss  was  equal  between  the  groups. 
At  the  conclusion  of  the  research,  18  crews  participated  in 
the  final  live-fire  exercises,  9  in  each  group.  After 
completing  the  day  run,  however,  one  crew  in  the  control 
group  was  unable  to  complete  the  night  run  or  CMS  test 
because  of  an  off-duty  injury  to  one  crewmember. 

During  the  initial  live-fire  exercises,  demographic  and 
flight  experience  information  was  obtained  from  the 
participating  aviators  using  the  AH-64  CMS  Gunnery  Research 
Program  Demographic  Survey  ''c-e  Appendix  A).  The  demographic 
data  obtained  from  the  surv . y  indicate  a  range  of  experience 
that  is  typical  of  AH-64  operational  units.  Namely,  the 
units  consist  of  aviators  with  two  distinctly  different 
bac)tgrounds  :  those  with  previous  career  experience  in  other 
helicopters  (predominantly  the  AH-1)  and  those  who  proceeded 
from  initial  entry  rotary  wing  training  to  the  AH-64  Aviator 
Qualification  Course  (AQC)  .  Analysis  of  the  demographic  data 
for  the  aviators  who  completed  the  research  indicate  that  the 
training  groups  were  similar  when  the  research  began  (see 
Table  2).  The  differences  that  were  found  between  the 
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Table  2 


Aviator  Demographic  Data  at  the  Initial  Live-Fire  Exercise 


Pilot 

Gunner 

Measure 

Quantity 

Control 
(n  =  9) 

Simulator 
(n  =  9) 

Control 
(n  =  9) 

Simulator 
(n  =  9) 

Age  (years) 

median 

range 

30 

(23-40) 

31 

(25-47) 

30 

(26-34) 

26 

(22-40) 

Months  of 
Active  Duty 

// 

118 

(20-213) 

120 

(37-267) 

78 

(46-153) 

80 

(18-216) 

Months 

Since  AQC 

ft 

27 

(3-34) 

30 

(9-60) 

18 

(5-30) 

6 

(2-22) 

AH-64A 

Flight  Hours 

ft 

541 

(229-622) 

434 

(148-788) 

288 

(149-638) 

218 

(149-518) 

Total 

Flight  Hours 

ft 

1230 

(386-4360) 

1168 

(313-5940) 

761 

(382-2011) 

416 

(314-1727) 

Readiness 

Level 

mean 

SD 

1.2 

(0.44) 

1.2 

(0.67) 

1 . 1 

(0.33) 

1.8 

(0.83) 

Range 

Experience 

ft 

3 . 1 
(1 . 90) 

2.8 

(1.79) 

1.4 

(1.24) 

0.7 

(1.41) 

Note .  AQC  =  AH-64A  Aviator  Qualification  Course.  Readiness 
Level  (RL)  progresses  from  RL3  (new  assignment  to  unit)  to 
RLl  . 


simulator  and  control  groups  are  small,  especially  when 
compared  to  the  differences  between  the  crew  seat  position. 
However,  the  AH-64A  flight  hours,  readiness  levels,  and 
previous  Dalton-Henson  range  experience  indicate  that  the 
simulator  group  was  somewhat  less  experienced  than  the 
control  group. 

CMS  instructors .  The  gunnery  instruction  and  console 
operation  for  crew  testing  and  training  in  the  CMS  was 
conducted  by  seven  civilian  Flight  Simulator  Facility  AK-64A 
CMS  Instructor  Pilots  (IPs) .  All  seven  were  retired  Army  IPs 
and  were  highly  experienced  in  the  CMS  operation  and 
instruction.  The  I/Os  were  briefed  on  the  purpose,  design, 
and  procedures  of  the  research  project  and  participated  in 
designing  the  tactical  CMS  gunnery  scenario. 

Scoring  personnel .  Target  effect  measures  of  gunnery 
performance  were  obtained  during  the  live-fire  exercises  by 
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nine  individuals:  four  AWSS  operators,  three  squadron  SIPs, 
and  two  researchers.  Two  civilian  contract  personnel 
operated  the  AWSS  during  the  day  exercises  and  another  two 
during  the  night  exercises;  on  each  shift,  one  scorer 
operated  the  BSS  and  one  operated  the  DSS .  The  missile 
target  effect  performance  was  evaluated  by  each  squadron' s 
SIP,  The  researchers  monitored  the  range  activities, 
collected  the  performance  information  from  the  BSS  and  DSS 
operators,  and  entered  the  data  into  the  project  computer, 
one  during  the  day  exercises  and  the  other  during  the  night 
exercises.  The  researchers  obtained  engagement  time  measures 
for  the  live-fire  exercises  and  the  CMS  tests  from  the  VRS 
videotapes.  They  also  obtained  target  effect  measures  for 
the  CMS  tests  from  computer-generated  printouts. 


Detailed  Procedures 

Live-fire  exercises.  The  initial  and  final  live-fire 
exercises  were  conducted  at  the  Dalton-Henson  Multipurpose 
Range  Complex  at  Fort  Hood,  Texas.  The  initial  live-fire 
exercises  were  conducted  at  two  different  times.  Two 
squadrons  from  the  participating  unit  completed  the  initial 
exercises  over  a  9-day  period.  The  last  squadron  completed 
the  initial  exercises  over  a  5-day  period  approximately  2 
months  later.  All  squadrons  completed  the  final  live-fire 
exercises  over  a  15-day  period  6  months  after  the  first 
initial  live-fire  exercise.  During  both  the  initial  and  the 
final  live-fire  exercises,  only  one  squadron  occupied  the 
range  at  a  time.  The  experimental  protocol  for  the  live-fire 
exercises  was  similar  for  the  initial  and  final  exercises  . 

The  gunnery  exercises  were  controlled  from  the  range 
operating  tower.  Each  squadron  provided  one  range  safety 
officer  and  one  communications  (COM)  officer.  The  range 
operations  office  provided  one  civilian  to  operate  the 
automated  range.  All  targets  were  raised  and  lowered  under 
the  computer  control  of  the  range  operator  in  the  tower. 

Each  squadron  established  a  forward  arming  and  refueling 
point  (FARP)  within  one  mile  of  firing  point  1.  For  the 
entire  period  that  the  squadron  occupied  the  range,  unit 
personnel  manned  the  bivouac  for  rearming,  refueling, 
maintaining,  and  staging  aircraft.  Aircraft  began  and  ended 
each  run  at  the  FARP .  Each  crew  contacted  the  tower  COM 
officer  when  they  were  ready  to  start  a  run.  When  the  range 
was  clear  of  preceding  aircraft,  the  aircraft  were  cleared  by 
the  COM  officer  to  move  from  the  FARP  to  the  first  firing 
point  , 
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Typically,  a  crew  arrived  on  the  range  at  firing  point  1 
and  proceeded  through  firing  point  1  in  sequential  order.  If 
equipment  malfunction  or  other  problems  occurred,  the  crews 
were  instructed  to  return  to  the  FARP  to  obtain  aircraft 
maintenance  or  replacements.  Subsequently,  the  crews 
returned  to  the  range  to  complete  all  engagements. 

Performance  of  all  the  gunnery  tasks  in  Table  1  and, 
consequently,  progress  through  all  seven  firing  points  was 
referred  to  as  a  run.  Each  crew  completed  one  run  under  day 
conditions  and  one  run  under  night  conditions.  During  the 
initial  exercises,  crews  were  allowed  to  complete  multiple 
runs  to  pass  unit  standards  for  gunnery  performance. 

Shortages  of  range  time  and  ammunition  during  the  final 
exercises  limited  each  crew  to  a  single  day  and  a  single 
night  run . 

Ail  aircrews  followed  standard  out-front  boresight 
procedures  before  firing  the  aircraft  laser  or  weapons.  Upon 
arriving  at  each  firing  point,  the  COM  officer  acknowledged 
the  aircraft's  arrival  at  the  firing  position,  cleared  the 
crew  to  arm  the  weapon  systems,  instructed  the  crew  to 
activate  the  VRS,  and  randomly  selected  one  of  the  target 
engagements  defined  for  that  firing  point.  For  each 
engagement,  the  COM  officer  performed  the  following 
activities : 

•  requested  that  the  range  operator  raise  the  target; 

•  requested  that  the  aircraft  establish  the  minimum  safe 
altitude  of  50  ft  above  ground  level  (AGL) ;  and 

•  delivered  a  standard  target  handover  including 
bearing,  description,  mode  (stationary  or  moving),  and 
weapon . 

After  receiving  the  target  handover,  the  crew  perform.ed  the 
following  activities: 

•  established  an  altitude  of  50  ft  AGL, 

•  acknowledged  the  target  handover, 

•  positioned  switches  for  the  engagement, 

•  unmasked  the  aircraft, 

•  acquired  the  target, 

•  delivered  the  ordinance, 

•  .masked  the  aircraft,  and 

•  called  "weapons  clear"  to  the  COM  officer. 

Ivhen  the  crew  called  weapons  clear,  the  COM  officer 
instructed  the  crew  to  deactivate  the  VRS  and  to  place  the 
weapon  systems  in  the  safe  mode;  he  then  cleared  the  crew  to 
proceed  to  the  next  firing  position. 

During  the  initial  and  final  live-fire  exercises,  each 
crew  was  allowed  to  choose  the  weapon  mode  used  to  engage 
each  target.  However,  the  crews  consistently  used  the  same 
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mode,  which  probably  represented  the  consensus  on  the  optimal 
weapon  system  mode  for  each  engagement .  The  30  mm 
engagements  were  conducted  by  the  CPG  using  the  TADS  and 
LRF/'D .  Rocket  engagements  were  conducted  in  the  cooperative 
mode:  The  CPG  tracked  the  target  with  the  LRF/D  and  TADS  and 

the  PLT  maneuvered  the  aircraft  to  align  the  rocket  symbology 
and  fire  the  weapon.  Missile  engagements  were  conducted 
using  the  aircraft's  simulated  Hellfire  training  missiles  by 
the  CPG  using  the  TADS  and  LRF/D  in  a  normal  lock-on-before- 
launch  mode  with  autonomous  target  designation . 

AH-64A  CMS  test  procedures.  The  CMS  scenario  was  used 
to  test  the  gunnery  performance  of  all  crews  after  the 
initial  live-fire  exercises  and  again  after  the  final  live- 
fire  exercises.  The  CMS  was  used  in  the  integrated  mode  both 
for  testing  and  training  gunnery  performance.  The  CMS 
gunnery  performance  test  was  conducted  for  both  day  and  night 
conditions  during  a  1.5-hour  simulator  period. 

Each  crew  arrived  at  the  simulator  facility  30  to  40 
minutes  before  the  scheduled  simulator  session.  When  the 
crew  arrived,  the  I/O  gave  them  a  copy  of  the  situation 
sheet,  a  tactical  map,  a  contour  chart,  and  a  communications 
frequency  list .  The  crews  were  then  allowed  to  plan  the 
mission  before  the  simulator  session  began;  they  could  obtain 
assistance  from  the  I/O,  if  necessary. 

Each  crew  began  the  scenario  in  a  holding  area  and  flew 
to  the  first  firing  position  under  the  direction  of  the 
scout,  who  was  played  by  the  I/O.  From  the  first  firing 
position,  the  crew  fired  missiles,  rockets,  and  30  mm  rounds 
at  different  targets.  The  scout  then  directed  the  crew  to 
move  to  another  firing  position,  where  the  crew  engaged  other 
targets  using  the  missiles  and  rockets.  Subsequently,  the 
scout  directed  the  crew  to  move  to  a  grid  point.  When  the 
crew  arrived  at  the  grid  point,  the  scout  directed  the  crew 
to  proceed  cautiously  in  the  direction  of  another  grid  point 
to  assist  in  locating  a  downed  friendly  aircraft.  As  the 
aircraft  traveled  through  the  lowland  route,  the  scout  called 
for  the  crew  to  suppress  a  target  using  the  30  mm  gun.  When 
the  aircraft  arrived  at  the  second  grid  point,  the  scout 
instructed  the  crew  to  turn  around  and  make  another 
reconnaissance  pass  over  the  lowland  route  and  to  engage  the 
target  again  using  the  30  mm  gun.  After  completing  the 
engagement,  the  scout  directed  the  crew  to  proceed  to  another 
highland  battle  p. 'option,  where  a  final  missile  target  was 
engaged . 

•After  the  crews  completed  che  scenario  under  day 
conditions,  they  repeated  it  under  nighv  conditions.  When 
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the  test  session  was  completed,  the  crew  reviewed  their 
performance  with  the  I/O  and  returned  the  test  materials. 

The  time  required  for  each  test  session  was  approximately  2.5 
hours . 

The  CMS  VRS  was  used  during  the  test  to  record  all 
engagements.  During  each  test,  the  I/O  directed  the  crews 
through  the  scenario  by  acting  as  the  scout.  He  did  not 
provide  any  instruction  or  performance  feedback  to  the  crews 
during  the  CMS  test.  As  each  target  was  engaged,  the  summary 
of  the  ownship  gunnery  performance,  generated  by  the  CMS,  was 
printed  by  the  researcher. 

Experimental  group  training  procedures.  After  the 
initial  live-fire  exercise  and  CMS  test,  the  squadron  and 
brigade  SIPs  were  instructed  to  continue  the  normal  unit 
training  of  the  simulator  group  aviators,  with  the  following 
three  exceptions.  First,  the  simulator  group  aviators  were 
restricted  from  participating  in  any  live-fire  gunnery 
practice  in  the  aircraft.  Second,  they  were  instructed  to 
complete  the  Postflight  Debriefing  form  after  each  flight  in 
the  aircraft,  CMS,  or  CWEPT  and  to  submit  the  completed  forms 
periodically  to  the  on-site  researcher.  Third,  they  were 
required  to  attend  five  gunnery  training  sessions  in  the  CMS 
before  the  final  live-fire  exercise. 

The  experimental  group's  gunnery  training  was  conducted 
exclusively  in  the  CMS.  The  procedures  for  training  crews  in 
the  CMS  were  similar  to  those  used  in  the  CMS  gunnery  tests 
with  two  exceptions.  First,  the  VRS  was  not  used  during  CMS 
training.  Second,  the  I/O  aided  and  instructed  the 
crewmembers  as  necessary  during  the  mission. 

Control  group  training  procedures.  After  the  initial 
live-fire  exercise  and  CMS  test,  the  squadron  and  brigade 
SIPs  were  instructed  to  continue  the  normal  unit  training  of 
the  control  group  aviators,  with  the  following  two 
exceptions.  First,  the  control  group  aviators  were 
restricted  from  gunnery  practice  in  the  CMS,  but  they  were 
allowed  to  use  the  CMS  for  instrument  and  emergencies 
procedures  training.  Second,  they  were  instructed  to 
com.plete  the  Postflight  Debriefing  form  after  each  flight  in 
the  aircraft,  CMS,  or  CWEPT  and  to  submit  the  completed  forms 
periodically  to  the  on-site  researcher.  Except  for  the 
initial  and  final  gunnery  tests,  the  researchers  had  no 
direct  contact  with  the  control  group  aviators. 


21 


Monitoring  PgQcedurfcs 


The  use  of  the  CMS  was  the  only  training  activity  under 
the  experimental  control  of  this  research.  However/  there 
are  several  other  training  activities  that  could 
significantly  affect  crew  gunnery  performance.  Differential 
use  of  other  forms  of  gunnery  training  by  the  two  groups 
could  confound  the  results  of  the  research.  Therefore/ 
participation  in  JAAT  training  exercises  and  the  use  of  the 
aircraft/  the  CWEPT/  and  the  TADS  Selected  Task  Trainer 
(TSTT)  were  monitored  over  the  course  of  the  research  to  aid 
in  the  interpretation  of  the  results.  Squadron  operations 
officers  provided  information  about  major  gunnery  training 
activities  (e.g.,  JAATs) .  The  Army  aviator  flight  records 
(Form  759)  were  reviewed  after  the  initial  and  final  live- 
fire  exercises  to  measure  the  aunount  of  AK-64A  flight  time. 
Finally/  the  on-site  researcher  obtained  the  number  of  hours 
that  the  participating  aviators  used  the  CWEPT  and  TSTT  from 
a  computer  data  base  maintained  by  personnel  at  the  simulator 
facility . 


Measures  of  Effectiveness 

Several  measures  of  effectiveness  (MOEs)  were  obtained 
during  the  live-fire  and  CMS  gunnery  performance  tests.  When 
more  than  one  run  was  completed  by  a  crew  during  the  initial 
live-fire  exercise/  the  performance  on  the  last  run  completed 
was  used.  With  the  exception  of  engagement  time/  the  MOEs 
differed  from  one  weapon  system  to  another  and  from  the  live- 
fire  exercises  to  the  CMS  tests.  Each  of  the  measures  and 
their  source  are  described  in  the  following  sections. 

Engagement  time.  Engagement  time  was  defined  as  the 
time  between  when  the  crew  acknowledged  the  target  handover 
and  when  they  called  weapons  clear.  The  VRS  was  used  during 
the  live-fire  exercises  and  the  CMS  tests  to  record  TADS 
displays  during  each  engagement.  All  engagement  time 
measures  were  obtained  using  hand-held  stop  watches  and  the 
VRS  videotapes  after  the  exercises .  The  live-fire  range  and 
CMS  protocol  were  designed  to  utilize  the  1-hour  videotapes 
efficiently  and  to  provide  objective  start  and  finish  events 
to  aid  in  measuring  engagement  time. 

30  mm  target  effect.  For  the  live-fire  exercises,  30  mm 
target  effect  was  defined  as  the  number  of  rounds  that  passed 
through  the  BSS  Doppler  fan  and  landed  in  the  target  effect 
area  (hits)  divided  by  the  total  number  of  rounds  fired  from 
the  aircraft  (shots) .  The  number  of  hits  was  provided  by  the 
BSS  operator  and  the  shots  were  obtained  from  the  rounds 
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counter  on  the  VRS  videotape  of  the  engagements.  Thus,  the 
hits/shots  ratio  is  the  percentage  of  rounds  in  the  target 
effect  area  or  box. 

Rocket  target  effect.  For  the  live-fire  exercises, 
rocket  target  effect  was  defined  for  each  4-rocket  engagement 
as  the  mean  distance  from  the  target  (miss  distance) .  The 
down-range  miss  distance  and  the  cross-range  miss  distance 
for  each  rocket  impact  was  provided  by  the  DSS  operator.  For 
each  rocket  impact  sensed  by  the  DSS,  the  cross-  and  down- 
range  miss  distances  were  used  to  compute  the  absolute  miss 
distance  using  the  Pythagorean  theorem.  Because  the  DSS 
demonstrated  good  sensitivity  for  rocket  impacts  out  to 
350  m,  all  rocket  impacts  that  were  not  detected  by  the  DSS 
were  assigned  500  m  miss  distances  by  the  researcher. 

Hellfire  target  effect.  During  the  live-fire  exercises, 
the  VRS  videotapes  were  viewed  immediately  after  each  run  by 
the  squadron  SIP  and  evaluated  using  the  brigade  standard  for 
missile  target  kills.  The  information  taken  from  the  tapes 
was  used  to  evaluate  proper  mode  selection,  switch  settings, 
target  acquisition,  missile  launch,  and  guidance.  The 
squadron  SIPs  recorded  whether  the  target  was  killed  on 
brigade  evaluation  sheets. 

CMS  target  effect.  The  ownship  performance  data  sheets 
generated  by  the  CMS  after  each  engagement  were  the  source  of 
the  target  effect  measures  for  30  mm,  rocket,  and  missile 
performance  in  the  simulator.  For  each  weapon  trigger  pull, 
the  CMS  calculated  the  mean  miss  distance  for  the  rounds 
fired.  If  any  rounds  from  a  trigger  pull  hit  the  target,  the 
mean  miss  distance  was  always  zero.  The  mean  distances  for 
each  trigger  pull  were  used  to  compute  the  mean  miss  distance 
for  each  engagement  by  creating  a  rounds-weighted  sum  of  miss 
distance  and  then  dividing  by  the  total  number  of  rounds 
fired.  In  addition  to  miss  distance,  target  impacts  (kills) 
were  recorded  for  each  engagement . 


Results 

The  first  major  objective  of  this  research  was  to 
determine  the  effectiveness  of  the  CMS  for  the  sustainment  of 
crew  gunnery  skills.  CMS  effectiveness  was  determined  by 
analyzing  the  live-fire  gunnery  exercises,  the  CMS  gunnery 
test,  and  the  other  training  activities. 
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Live-Fire  Gunnery  Performance  Test 


The  effectiveness  of  the  CMS  was  directly  tested  by 
comparing  the  performance  of  the  training  groups  during  the 
pretest  and  the  posttest  live-fire  exercises.  Because  the 
simulator  could  have  differential  effectiveness  across  weapon 
systems,  the  training  effectiveness  of  the  CMS  was  analyzed 
separately  for  each  weapon.  Further,  the  training 
effectiveness  of  the  CMS  was  analyzed  separately  for  measures 
of  target  effect  and  engagement  time  to  determine  if  the 
simulator  had  a  differential  effect  on  the  two  aspects  of 
gunnery  performance. 

Two-factor  repeated  measures  analysis  of  variance 
(ANOVA)  tests  were  conducted  on  each  dependent  measure. 
Training  (simulator  vs.  control)  was  analyzed  as  a  between- 
group  variable.  Trial  (initial  vs.  final  exercise)  was 
analyzed  as  a  within-group,  or  repeated  measures,  variable. 

In  this  ANOVA  design,  transfer  of  training  is  indicated  by  a 
significant  interaction  between  training  and  trial.  Positive 
transfer  is  indicated  when  the  simulator  group  performs 
better  than  the  control  group  during  the  final  exercise. 
Ideally,  the  gunnery  performance  of  both  groups  would  be 
equivalent  at  the  initial  live-fire  exercise  (matched  groups) 
and  differ  at  the  final  live-fire  exercise.  A  trial  main 
effect  would  indicate  significant  changes  in  the  performance 
across  trials  unrelated  to  training  group.  A  training  main 
effect  indicates  a  lack  of  equivalence  between  the  groups 
across  trials. 

The  results  from  the  six  live-fire  analyses  (three 
weapon  systems  by  two  measures)  are  presented  in  the 
following  paragraphs.  All  of  these  analyses  were  initially 
conducted  separately  for  day  and  night.  In  no  case,  however, 
did  the  trends  found  for  day  or  night  differ  from  the 
combined  trends.  To  simplify  the  presentation  of  the 
results,  only  the  analyses  of  the  data  combined  across  day 
and  night  are  reported. 

Finally,  for  each  of  the  analyses  presented  below,  the 
gunnery  performance  measures  are  graphed.  Each  graph 
displays  the  mean  and  one  standard  error  of  the  mean  (plus 
and  minus)  for  each  training  group  during  the  initial  and 
final  live-fire  exercises.  The  standard  error  of  the  mean 
quantifies  the  variability  in  the  data  and,  when  graphed, 
provides  a  visual  indication  of  the  differences  in  the 
individual  scores  and  the  significance  of  the  differences 
between  the  means .  Means  with  standard  error  bars  that 
overlap  are  generally  not  significantly  different  from  one 
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another;  means  with  nonoverlapping  error  bars  usually  differ 
significantly. 

Engagement  time.  The  times  for  the  30  mm  gun  and 
Hellflre  missile  engagements  were  similar  and  averaged  69  and 
66  seconds,  respectively  (see  Figures  7  and  8) .  In  contrast, 
the  rocket  engagement  times  were  substantially  longer, 
averaging  159  seconds  per  engagement  (see  Figure  9) .  This 
difference  was  the  result  of  the  requirement  that  each  of  the 
four  rockets  in  each  engagement  roust  be  fired  individually. 
The  standard  errors  of  the  mean  are  shown  as  vertical  bars  in 
all  the  figures. 

There  were  no  significant  interaction  effects  for  any  of 
the  engagement  times,  but  there  were  differences  in  the 
trends  shown  for  the  three  weapon  systems.  The  engagement 
times  for  the  30  mm  gun  (see  Figure  7)  indicate  that  the 
simulator  group  improvement  was  slower  than  the  control  g.roup 
improvement  over  the  course  of  the  experiment  (i.e.,  negative 
transfer) .  However,  both  the  missile  and  rocket  data 
demonstrate  a  trend  toward  positive  CMS  transfer  (see  Figures 
8  and  9)  . 


Exercise 

P'igure  7.  The  mean  30  mm  engagement  time  ±  1 
standard  error  during  the  initial  and  final 
live-fire  exerciseu  as  a  function  of  training 
group . 
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Figure  8.  The  mean  Hellfire  engagement  time 
±  1  standard  error  during  the  initial  and 
final  live-fire  exercises  as  a  function  of 
training  group. 


Exercise 

Figure  9.  The  mean  rocket  engagement  time  ±  1 
standard  error  during  the  initial  and  final  live- 
fire  exercises  as  a  function  of  training  group. 
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There  were  significant  improvements  in  both  groups 
between  the  initial  and  final  live-fire  exercises  (i.e., 
trial  main  effect)  for  the  30  mm  gun  (£  (1,  15)  ■  13.53, 

H  <.05)  and  the  Hellfire  missile  (£  (1,  15)  «  11.80,  b  <.05) . 
This  15-second  improvement  may  be  due  to  the  practice 
received  during  the  initial  live-fire  exercise  or  some  other 
non-CMS  training  that  occurred  between  the  initial  and  final 
live-fire  exercises.  A  similar  improvement  of  20  seconds  in 
the  rocket  data  was  not  significant,  however,  probably 
because  of  the  large  amount  of  variance  within  the  groups 
(see  the  standard  error  bars  in  Figure  9) . 

Overall,  the  engagement  time  data  show  no  significant 
effect  on  CMS  training.  The  engagement  data,  however,  do 
demonstrate  a  consistent  (»17%)  improvement  over  the  course 
of  the  experiment . 

Target  effect.  Averaged  across  firing  points,  the  30  mm 
gun  performance  for  all  groups  was  approximately  50%  (see 
Figure  10)  .  Though  there  were  strong  range-to-target  effects 
in  the  30  mm  target  effect  data  (see  Hamilton,  1991) ,  there 
were  no  significant  CMS  training  effects.  The  performance  of 
the  simulator  and  control  groups  was  almost  identical  during 
the  initial  exercise,  but  the  control  group  performed 
slightly  better  than  the  experimental  group  during  the  final 
live-fire  exercise. 

The  mean  miss  distance  for  rockets  varied  from 
approximately  350  m  to  250  m  during  the  experiment  (see 
Figure  11) .  The  mean  miss  distance  for  the  control  group  was 
significantly  better  than  the  simulator  group  during  both 
exercises  (£  (1,  15)  =-15.26,  e  <.05).  However,  the  ANOVA 

did  not  indicate  a  CMS  training  effect  (i.e.,  trial  by 
training  interaction) .  There  was  also  a  significant 
improvement  in  mean  miss  distance  of  approximately  50  m  from 
the  initial  to  the  final  live-fire  exercises  (E  (1,  15)  “ 
6.66,  ft  <.05),  This  effect  can  probably  be  attributed  to 
improvements  in  rocket  pod  alignment  techniques  implemented 
between  the  initial  and  final  exercises  (see  Hamilton,  1991) . 

Finally,  the  Hellfire  performance  was  quite  high;  The 
crews  always  scored  at  least  9  of  the  16  possible  missile 
kills.  Missile  kill  performance  was  nearly  identical  at  the 
initial  exercise,  but  the  control  group  performance  was 
slightly  better  than  the  simulator  group  performance  during 
the  final  live-fire  exercise  (see  Figure  12) .  However,  there 
were  no  significant  differences  in  the  Hellfire  missile 
performance . 
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Initial  Final 

Exercise 

# 

Figure  10.  The  percentage  of  hits  ±  1 
standard  error  for  the  30  nun  gun  during  the 
initial  and  final  live-fire  exercises  as  a 
function  of  training  group. 


Initial  Final 

Exercise 

Figure  11.  The  mean  miss  distance  ±  1 
standard  error  for  the  rockets  during  the 
initial  and  final  live-fire  exercises  as  a 
function  of  training  group. 


Figure  12.  The  percentage  of  judged  target 
kills  ±  1  standard  error  for  the  Hellfire 
missiles  during  the  initial  and  final  live- 
fire  exercises  as  a  function  of  training 
group . 


Overall,  the  live-fire  gunnery  range  results  show  little 
evidence  of  CMS  training  effectiveness  in  the  simulator  group 
or  of  skill  decay  in  the  control  group.  There  were  several 
examples  of  initial-to-f inal  performance  improvements,  but 
the  trends  were  not  related  to  CMS  training. 


CMS  Gunnery  Performance  Test 

The  analysis  of  the  effect  of  simulator  training  on 
gunnery  performance  in  the  CMS  was  conducted  using  the  same 
ANOVA  design  used  for  the  live-fire  data.  Examination  of  the 
differential  performance  in  the  CMS  is  a  test  of  training 
effectiveness  as  opposed  to  simulator  effectiveness.  The 
control  group  was  expected  to  show  some  skill  decay;  the 
simulator  group  was  expected  to  show  some  skill  enhancement. 

As  in  the  live-fire  analyses,  engagement  tin.c  and  target 
effect  measures  (mean  miss  distance  and  number  of  target 
kills)  were  analyzed  separately  for  each  weapon  system.  The 
target  effect  measures  generated  by  the  CMS  are  classified 
and  cannot  be  reported  in  detail.  However,  the  overall 
trends  found  during  these  analyses  are  .sufficient  to  evaluate 
the  effect  of  the  simulator  training  on  simulator 
performance . 
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Overall,  there  were  no  significant  effects  at  the  ji  <.05 
level  for  nine  ANOVAs  <3  weapons  by  3  measures),  but  the 
gunnery  performance  trends  in  the  simulator  were  more 
consistent  than  those  found  in  the  live-fire  exercises. 
Gunnery  performance  of  the  simulator  group  improved  for  each 
of  the  measures  across  all  weapons  systems  and,  with  one 
exception,  improved  by  a  greater  amount  than  the  control 
group.  Moreover,  some  indication  of  skill  decay  was  found  in 
the  control  group  for  both  rocket  target  effect  measures. 


Other  Trainiag-Activitiea 

Data  were  collected  and  analyzed  for  differential  use  by 
the  two  training  groups  for  four  types  of  training;  JAAT, 
aircraft,  CWEPT,  and  TSTT.  The  aviators  were  instructed  to 
complete  a  Postflight  Debriefing  form  after  every  training 
activity,  but  they  were  very  inconsistent  in  complying  with 
this  requirement.  As  a  resxilt,  the  information  about  non-CMS 
training  activities  is  drawn  only  from  more  reliable  sources. 

First,  the  unit  involved  in  the  research  participated  in 
a  JAAT  training  exercise  at  Fort  Hood,  Texas,  2  months  before 
the  final  live-fire  exercises.  Four  of  the  control  group 
crews  participated  in  the  training,  but  no  additional 
information  is  available  about  the  type  or  amount  of  training 
they  received.  Second,  the  mean  flight  hours  per  crewmember 
during  the  experimental  period  were  larger  in  the  control 
group  ^^oCMS  “  1^7^  »  10.7)  than  the  simulator  group 

“  101,  “  8.0),  but  the  differences  were  not 

statistically  significant.  The  greater  number  of  aircraft 
flight  hours  in  the  control  group  may  be  partially  attributed 
to  the  JAAT  exercise. 

Third,  CWEPT  records  indicated  the  participating  crews 
did  not  use  the  device  very  often  and  there  was  no 
statistically  significant  difference  between  the  average 
number  of  hours  each  group  used  the  device  (M^„cm6  “  1.31,  •• 

.368/  «  1.25,  ££  -.829).  Finally,  a  TSTT  training  device 

was  available  to  participating  crews  during  the  Initial 
stages  of  the  research,  but  it  wap  removed  approximately  3 
months  before  the  final  live-fire  exercises.  Discussions 
with  personnel  managing  the  device  again  indicated  little  or 
no  use  of  the  device  by  the  participating  crews. 


30 


Discussion 


The  first  major  objective  of  this  research  was  to 
determine  the  effectiveness  of  the  CMS  for  the  sustainment  of 
crew  gunnery  skills.  The  effectiveness  of  the  CMS  was 
directly  tested  by  measurir.g  '  he  differential  performance  of 
the  training  groups  between  the  initial  and  final  live-fire 
exercises.  The  results  of  these  tests  can  be  summarized  in 
three  statements. 

First,  after  five  gunnery  training  sessions  in  the  CMS, 
the  simulator  crews  did  not  have  significantly  better 
engagement  time  or  target  effect  performance  when  compared  to 
the  control  group.  Second,  the  results  of  the  initial  and 
final  CMS  gunnery  performance  tests  showed  consistent  but 
nonsignificant  performance  improvements  in  the  simulator 
group.  Third,  there  were  no  significant  differences  in  the 
other  training  practices  of  the  simulator  and  control  group 
aviators.  Though  these  findings  appear  to  indicate  that  the 
CMS  is  ineffective  in  sustaining  gunnery  skills,  a  number  of 
factors  should  be  considered  before  drawing  final  conclusions 
from  the  research  results. 


The  best  demonstration  of  training  effectiveness  for 
skill  sustainment  is  for  the  control  group  to  show  skill 
decay  while  the  simulator  group  maintains  their  skill  level. 
The  results  of  this  research  show  no  sign  of  skill  decay  by 
the  control  group.  Indeed,  the  performance  of  the  control 
group  improved  in  many  instances  over  the  course  of  the 
research.  As  anticipated  in  the  design  considerations,  a 
measurable  loss  of  skill  in  the  control  group  would  be 
required  to  demonstrate  skill  sustainment,  and  thus,  CMS 
training  effectiveness. 

The  primary  reason  that  skill  decay  was  not  observed  in 
the  control  group  is  probably  .he  short  time  span  of  the 
research.  The  minimum  lenc’ of  time  for  aviator  skill  decay 
has  been  shown  to  be  at  leatjt  6  months  (Ruffner  &  Bickley, 
1983;  Ruffner,  Wick,  £  Bickley,  1984) .  However,  appreciable 
skill  loss  probably  occurs  sometime  between  6  months  and  a 
year  for  aviators  not  engaged  in  any  form  of  gunnery 
training.  Skill  decay  in  the  control  group  may  also  have 
been  minimized  by  factors  such  as  participation  of  the 
control  group  in  the  JAAT  training  exercises,  aircraft  dry- 
fire  exercises,  t).»  initial  CMS  test,  or  simple  mental 
rehearsal . 
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Skill  Enhancement 


An  alternative  method  of  demonstrating  training 
effectiveness  for  skill  sustainment  is  for  the  simulator 
group  to  show  skill  enhancement  while  the  control  group 
maintains  their  skill  level.  The  research  results 
demonstrate  that  CMS  training  over  a  6-roonth  period  was  not 
sufficient  to  make  the  simulator  group's  skill  measurably 
better  than  the  control  group's.  This  finding  probably 
indicates  that  the  participating  aviators  were  highly 
proficient  when  the  research  began.  Ironically,  the  high 
level  of  gunnery  proficiency  may  be  the  result  of  a 
successful  unit  training  program  that  included  the  fielding, 
staffing,  and  effective  use  of  CMS  facilities  in  the  unit. 

Another  explanation  of  the  lack  of  skill  enhancement  may 
be  that  the  measures  of  effectiveness  were  not  sufficiently 
sensitive  to  detect  increases  in  the  aviator's  gunnery 
proficiency.  Sensitive  measures  are  difficult  to  identify 
because  of  the  amount  of  variability  introduced  by  random 
variables  such  as  different  aircraft,  aircraft  maintenance, 
and  weather.  Nonetheless,  the  results  from  other  analyses 
conducted  to  evaluate  the  AH-64A  gunnery  standards  indicate 
that  the  performance  measures  were  sensitive  to  several 
factors  other  than  aviator  training,  including  changes  in 
range  to  target  and  differences  in  aircraft  weapons 
maintenance  procedures  (see  Hamilton,  1991) .  As  a  result, 
the  lack  of  skill  enhancement  is  more  likely  attributable  to 
high  initial  skill  levels  than  to  insensitivity  in  the 
ii.easures  of  effectiveness. 


Conclusions 

The  results  of  this  research  support  three  conclusions 
related  to  the  first  objective  of  this  research,  to  determine 
the  effectiveness  of  the  CMS  for  sustaining  crew  gunnery 
skills.  First,  this  experiment  found  no  significant  positive 
or  negative  transfer  of  training  from  the  CMS  to  the  live- 
fire  gunnery  range.  Thus,  the  training  effectiveness  of  the 
CMS  to  sustain  crew  gunnery  skills  remains  equivocal. 

Second,  the  gunnery  proficiency  of  operational  AH-64A 
aviators  is  at  or  near  an  asymptotic  level  of  performance. 

For  this  reason,  the  CMS  did  not  substantially  improve 
aviator  performance  during  the  6-inonth  period  of  this 
experiment.  However,  there  is  no  evidence  that  monthly  CMS 
training  produces  any  negative  transfer  to  the  aircraft. 
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Third,  the  restriction  from  CMS  training  was 
insufficient  to  bring  about  skill  decay  in  the  control  group 
over  the  6-month  period  of  this  research.  Although  previous 
research  indicated  that  skill  decay  could  occur  within  6 
months,  there  was  no  evidence  of  skill  loss  in  the  control 
group  during  the  final  live-fire  exercises.  Thus,  current 
levels  of  aircraft  and  other  forms  of  gunnery  training  are 
sufficient  to  maintain  crew  gunnery  skills  in  proficient 
aviators  for  up  to  6  months  without  the  aid  of  CMS  training. 

The  second  objective  of  this  research  was  to  provide 
data  to  establish  an  optimum  combination  of  aircraft  and 
flight  simulator  training  for  the  sustainment  of  crew  gunnery 
skills.  Because  the  research  did  not  establish  the  benefits 
of  short  term  CMS  training  or  the  critical  period  for  gunnery 
skill  decay,  the  obtained  data  are  insufficient  to  determine 
the  optimal  use  of  the  CMS  for  gunnery  training  of 
operational  aviators. 


Recommendations 

Until  additional  empirical  data  can  be  obtained,  the  CMS 
should  remain  an  integral  part  of  operational  gunnery 
training.  The  results  indicate  that  if  aircraft  hours  and 
other  gunnery  training  (e.g.,  JAATs)  are  funded  at  the  levels 
observed  in  this  research,  the  critical  period  for  gunnery 
skill  decay  in  proficient  aviators  is  6  months  or  longer. 
Thus,  CMS  gunnery  training  may  be  required  only  biannually. 
Nevertheless,  a  more  conservative  quarterly  CMS  gunnery 
training  may  be  advisable,  especially  when  the  participating 
aviators  may  have  benefited  from  the  initial  live-fire  and 
CMS  gunnery  tests.  However,  if  the  support  for  aircraft 
hours  and  other  gunnery  training  exercises  is  reduced, 
gunnery  skills  may  decay  in  less  than  6  months  unless  CMS 
training  is  increased.  In  fact,  there  is  no  statistically 
significant  evidence  of  negative  transfer  when  CMS  gunnery 
training  is  conducted  on  a  monthly  basis. 


Research  LlmltatlQns 

As  with  any  research,  the  application  of  the  results  of 
this  experiment  is  limited  by  the  conditions  under  which  they 
were  obtained.  Although  there  are  others,  the  four  major 
limitations  brought  about  by  the  selection  of  sustainment 
training,  gunnery  training,  crew  training,  and  the  measures 
of  effectiveness  are  discussed  in  the  following  paragraphs. 
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First,  the  research  was  designed  to  measure  the  training 
effectiveness  of  the- CMS  for  sustaining  skills.  As  such,  it 
produced  information  pertinent  to  unit  sustainment  training 
but  not  to  the  acquisition  of  skills.  Thus,  the  five  CMS 
training  sessions  that  did  not  produce  positive  transfer  to 
the  aircraft  for  proficient  aviators  might  significantly 
improve  the  performance  of  unskilled  aviators .  Second,  the 
research  focused  on  gunnery  skills;  different  results  may  be 
obtained  for  other  skills  such  as  instrument  flight  and 
emergency  procedures . 

Third,  the  research  addressed  only  the  crew  level  of 
gunnery  training.  The  Army  has  structured  the  gunnery 
training  of  its  aviators  in  a  logical  progression  from  the 
accjuisition  of  individual  skills,  through  crew  skills  and 
coordination,  to  team  skills  and  coordination.  The 
effectiveness  of  the  CMS  may  be  different  for  the  other 
levels  of  gunnery  training. 

Fourth,  the  MOEs  used  in  this  research  further  limit  the 
generalizability  of  the  results.  Although  speed  and  accuracy 
are  classic  measures  of  gunnery  skill,  many  other  skills  are 
critical  to  the  success  of  helicopter  gunnery  missions.  One 
example  is  the  identification,  selection,  and  use  of  terrain 
to  mask  the  helicopter  from  enemy  threat .  Because  the 
criterion  for  selecting  firing  points  on  the  gunnery  range 
and  for  selecting  battle  positions  during  a  gunnery  mission 
differ  significantly,  appropriate  terrain  masking  techniques 
were  not  emphasized  during  this  research  project.  However, 
terrain  masking  is  a  tactical  gunnery  skill  that  the  CMS  may 
be  effective  in  training. 


Future  Research 

The  costs  of  AH-64A  gunnery  training  resources  (e.g., 
flight  and  range  time,  ammunition)  have  increased  the  Army's 
dependence  on  flight  simulators  for  training  that  was 
previously  accomplished  in  the  aircraft.  Most  Army  aviators 
are  required  to  accomplish  a  portion  of  their  annual  flight 
requirements  in  a  flight  simulator.  Furthermore,  the  trend 
toward  substituting  simulator  training  for  aircraft  training 
is  likely  to  continue  as  resources  become  more  expensive  and 
simulator  technology  becomes  more  advanced. 

The  Army  has  not  baaed  the  deployment  or  utilization  of 
flight  simulators  on  empirical  training  effectiveness  data 
that  relate  to  the  acquisition  or  sustainment  of  gunnery 
skills.  In  fact,  individual  unit  commanders  are  responsible 
for  determining  the  mix  of  aircraft,  simulators,  and  other 
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training  devices  that  make  up  their  training  program.  Even 
when  two  or  more  units  share  the  same  simulator  site,  there 
are  differences  in  the  ways  that  units  use  the  flight 
simulators.  Decisions  about  the  trade-off  between  aircraft 
and  simulator  time  should  be  based  on  empirical 
demonstrations  of  the  simulator's  effectiveness  for  training 
specific  tasks.  Commanders  could  use  this  information  to 
develop  training  programs  that  achieve  their  training  goals 
and  maximize  the  utilization  and  effectiveness  of  the 
training  resources  available. 

This  research  represents  an  initial  step  toward 
empirically  determining  the  effectiveness  of  the  CMS  for 
satisfying  the  gunnery  training  requirements  of  operational 
aviation  units.  The  results  of  this  research  add 
significantly  to  the  knowledge  base  about  the  time  course  of 
AH-64A  gunnery  skill  decay  and  sustainment  in  operational 
units,  but  many  questions  remain  to  be  answered. 

Thus,  further  investigations  of  gunnery  skill  decay  in 
proficient  aviators  should  be  conducted  over  a  longer  period 
of  time,  such  as  12  to  18  months.  The  research  should  be 
designed  to  establish  the  relative  effectiveness  of  each  of 
the  alternative  training  devices  currently  available  to 
operational  units  for  sustaining  gunnery  skills.  If 
sufficient  control  can  be  maintained  during  the  proposed 
research,  the  information  necessary  to  design  an  efficient 
training  strategy  could  be  determined. 

Because  good  gunnery  and  tactical  skills  affect  crew 
survivability,  research  that  requires  the  significant  loss  of 
those  skills  may  be  unethical.  In  the  design  of  future 
research,  control  groups  should  be  identified  whose  lives 
would  not  be  endangered  by  a  discontinuation  of  gunnery 
training  (e.g.,  aviators  retiring  from  active  duty,  aviators 
assigned  to  nonflying  duties) . 

Finally,  future  research  should  be  given  adequate 
fiscal,  personnel,  and  operational  support.  The  utility  of 
the  current  research  was  severely  limited  by  crew  attrition 
and  scheduling  problems  that  must  be  resolved  before 
satisfactory  data  can  be  obtained  to  address  questions  about 
sustaining  AH-64  gunnery  skills. 
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APPENDIX  A 


AH-64  CMS  GUNNERY  RESEARCH  PROGRAM 
DEMOGRAPHIC  SURVEY 

6th  CAVALRY  BRIGADE-AIR  COMBAT  (CBAC) 

PART  A  INSTRUCTIONS:  Part  A  consists  of  questions  that  provide 
information  about  your  personal  background  and  experience.  Answer  each 
item  that  applies  to  you  by  checking  in  the  appropriate  bracket  { V  ]  or  by 
printing  the  required  inforr'  :*ion  in  the  space  provided.  When  answering  items 
about  flight  hours,  you  may  .afer  to  records,  if  available,  or  you  may  et^timate  the 
flight  hours  as  closely  as  possible.  Your  responses  wilt  be  used  for  research 
purposes  only. 


1. 


Name; 


Last 


First  Middle 


2.  Social  Security  Number: _ - _ - _ 

3.  Today's  Date:  _ 

(Month)  (Day)  (Year) 


4.  What  is  your  age  ? 
_ Years 


What  is  your  current  rank? 

(  ]  W01 

f  1  2LT 

I  ]  CW2 

1  1  ilt 

[  ]  CW3 

[  1  CPT 

[  ]  CW4 

[  ]  MAJ 

[  1  ltc 

[  1  COL 

To  which  unit  are  you  assigned? 

Unit; 

Squadron 

.Troop 


7.  How  long  have  you  been  assigned  to  your  present  troop? 
_ years  and _ months 
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6.  Do  you  anticipate  reassignment  prior  to  October  1990? 
I  I  Yes 
I  ]  No 

if  yes,  give  expected  date  and  location  of  raassignmenL. 


9.  Currently,  what  is  your  primary  duty  position  in  the  unit? 


0.  What  additional  duties  do  you  perform  in  your  unit? 


1 1 .  How  long  have  you  been  on  active  duty  military  service? 

_ years  and _ months  of  active  service 

12  How  long  has  it  been  since  you  graduated  from  initial  Army  flight 
training? 

_ years  and _ months 

1 3.  How  long  has  it  been  since  you  graduated  from  the  AH-64  AQC? 

_ years  and _ months 

1 4.  Were  you  an  lERW  turnaround  student  in  the  AH-64  AQC? 

I  ]  Yes 

[  )  No 

If  no,  what  was  your  primary  aircraft  before  entering  the  AH-64  AQC? 


15.  Indicate  the  total  number  of  flight  hours  you  have  logged  in  each  of  the 
following  aircraft.  Also,  check  [  V  ]  the  highest  duty  category  you  have 
held  in  each  aircraft. 

a.  Military  Rotary  Wing 

Pi  PC  UT  iP  Si  iE 

AH-64:  _  hours  [  1  I  ]  I  ]  I  1  I  1  I  1 

AH-l:  _  hours  [  ]  I  ]  I  ]  [  ]  I  1  I  ] 

OH-58: _  hours  (  1  [  ]  1  ]  [  1  I  1  I  1 

UH-1:  _  hours  [  1  I  ]  [  1  [  I  [  1  I  1 

Other:  _  hours  [  ]  I  1  I  ]  [  1  I  1  I  ] 

(Specify  other  aircraft) _ 

b.  Miiitary  Fixed  Wing 

UH-21: _  hours  [  1  (  ]  (  ]  [  1  I  ]  [  1 

C-12:  hours  [  )  I  ]  I  ]  I  ]  [  ]  [  1 

OV-1:  _  hours  [](][](][]() 

Other:  _  hours  [](][][][]  I  ] 

(Specify  other  aircraft) _ _ 

16.  How  many  flight  hours  have  you  logged  in  each  seat  of  the  AH-64? 

Front  Seat: _ hours 

Backseat: _ hours 

17.  How  many  flight  hours  have  you  logged  in  each  seat  of  the  AH-64  CMS? 

Front  Seat: _ hours 

Back  Seat: _ hours 

16.  How  many  flight  hours  have  you  logged  in  each  seat  of  the  AH-64 
CWEPT? 

Front  Seat: _ hours 

Back  Seat: _ hours 

19.  How  many  night  flight  hours  have  you  logged  in  each  seat  of  the  AH-64? 

Front  Seat: _ hours 

Back  Seat: _ hours 


20.  If  you  were  an  AH.-I  pilot  previously,  how  iong  has  it  been  since  you 
completed  the  AH-1  Crew  Gunnery  Tables? 

_ years  and _ months 

21 .  After  arriving  at  your  present  unit,  what  was  your  origineU  crew  station 
designation? 

[  ]  AH-64  front  seat 
[  ]  AH‘64  back  seat 

(  ]  Other  (explain) _ _ 

22.  How  many  training  hours  were  required  for  you  to  attain  RL2  and  RL1 
status  in  your  originally  designated  seat?  (Check  here  [  ]  if  you  did 
rot  attain  RL2  or  RL1  in  your  originally  designated  seat.) 

_ flight  hours  to  RL2  from  RL3 

_ CMS  hours  to  RL2  from  RL3 

_ flight  hours  to  RL1  from  RL2 

_ CMS  hours  to  RL1  from  RL2 


23.  What  is  your  current  crew  station  designation? 
(  ]  AH-64  front  seat 
[  ]  AH-64  back  seat 

[  1  Both  seats  (explain) _ 


24.  What  is  your  current  Readiness  Level? 


RL  Front 

[  ]  RL1  in  the  front  seat 
[  ]  RL2  in  the  front  seat 
[  ]  RL3  in  the  front  seat 


RL  Back 

[  ]  RL1  in  the  back  seat 
[  ]  RL2  in  the  back  seat 
[  ]  RL3  in  the  back  seat 


25.  Excluding  IP  evaluations,  how  many  crewmembers  have  you  flown  with 
since  entering  the  6th  CBAC? 

_ crewmembers 


26.  Have  you  been  assigned  to  a  fixed  crewmate? 
I  1  Yes 
I  1  No 
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27.  If  you  are  a  member  of  a  fixed  crew,  how  many  hours  has  your  crew 
trained  together?  ' 

_ flight  hours 

_ _ CMS  hours 

28.  How  many  of  your  flights,  if  any,  have  been  delayed  or  rescheduled  due 
to  the  unavailability  of  an  appropriately  trained  (i.e.,  current  in  the 
required  seat)  crewmate? 

_ flights  have  been  delayed  or  rescheduled 

29.  How  many  times  have  you  participated  in  gunnery  exercises  at  the 
Dalton/Henson  range  complex? 

_ times  flying  the  AH‘64A 

_ times  flying  other  aircraft 


6th  CAVALRY  BRIGADE- AIR  COMBAT  (CBAC) 


PART  B  INSTRUCTIONS:  Part  B  consists  of  questions  that  provide 
information  about  your  experience  A^ith  the  AH-64  optical  systems.  The 
questions  ask  for  both  objective  and  subjective  information.  Ansv/er  each  item 
that  applies  to  you  by  checking  in  the  appropriate  bracket  [  V  ]  or  by  printing 
your  answer  In  the  space  provided.  This  information  wilt  be  treated  as  highly 
confidential;  individual  responses  will  not  be  seen  by  anyone  except  the 
research  staff. 


30.  In  the  back  seat,  how  often  do  you  optimize  your  PNVS  FLIP? 

[  ]  Only  during  preflight  checks 

[  ]  Parely  during  flight 
[  ]  Occasionally  during  flight 
[  ]  Frequentiy  during  flight 

31 .  In  the  front  seat,  how  often  do  you  optimize  your  TADS  FLIP? 

[  ]  Only  during  prefiight  checks 

[  ]  Rarely  during  flight 
[  ]  Occasionally  during  flight 
[  ]  Frequently  during  flight 

32.  In  the  back  seat,  to  what  extent  does  the  flight  symbology  interfere  with 
your  ability  to  see  terrain  features  during  NOE  flight? 

[  ]  Not  at  all 
[  ]  Slightly 
(  )  Moderately 
[  ]  A  great  deal 

33.  In  the  front  seat,  to  what  extent  does  the  TADS  weapons  symbology 
interfere  with  your  ability  to  see  targets? 

[  ]  Not  at  all 
I  1  Slightly 
[  ]  Moderately 
[  ]  A  great  deal 


34.  How  difficult  is  K  to  read  the  numbers  on  the  helmet-mounted  display? 

[  ]  Not  at  all  difficult 

(  ]  Slightly  difficult 
[  ]  Moderately  difficult 
[  1  Very  difficult 
[  ]  Extremely  difficult 

35.  How  much  practice  is  required  to  handover  targets  proficiently  between 
crewmembers  using  the  flight  and  weapons  symbologies? 

[  ]  Only  initial  practice 
[  ]  Occasional  practice 
[  ]  Frequent  practice 
[  ]  Constant  practice 

36.  In  your  opinion,  how  likely  are  there  to  be  misinterpretations  of  the 
different  symbologies  on  the  PNVS  and  TADS  as  a  result  of  changing 
crew  stations? 

[  ]  Not  at  all  likely 
[  ]  Slightly  likely 
[  ]  Moderately  likely 
[  ]  Very  likely 
[  ]  Extremely  likely 

37.  List  the  three  flight  symbols  that  interfere  most  with  the  IR  imagery. 


38.  List  the  three  weapons  symbols  that  interfere  most  with  the  IR  imagery. 


39.  In  the  front  seat,  what  percentage  of  your  time  during  traveling  flight  do 
you  spend  monitoring  the  PNVS? 

_ percent  monitoring  the  PNVS 
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40.  In  the  back  seat,  what  percentage  of  your  time  during  traveling  flight  do 
you  spend  monitoring  the  TADS? 

_ percent  monitoring  the  TADS 

41.  In  the  back  seat,  what  percentage  of  your  time  during  target 
engagements  do  you  spend  monitoring  the  TADS? 

_ percent  monitoring  the  TADS 

42.  At  the  end  of  the  AQC,  how  proficient  were  you  in  using  the  PNVS  to  fly 
the  AH-64? 

[  ]  Minimally  proficient 
[  ]  Marginally  proficient 
[  ]  Moderately  proficient 
(  ]  Highly  proficient 
(  ]  Extremely  proficient 

43.  At  the  end  of  the  AQC,  how  proficient  were  you  in  operating  the  TADS? 

[  ]  Minimally  proficient 

[  ]  Marginally  proficient 
[  1  Moderately  proficient 
I  ]  Highly  proficient 
[  ]  Extremely  proficient 

44.  Currently,  how  proficient  are  you  in  flying  with  the  PNVS? 

{  ]  Minimally  proficient 

[  ]  Marginally  proficient 
(  ]  Moderately  proficient 
[  ]  Highly  proficient 
[  ]  Extremely  proficient 

45.  Currently,  how  proficient  are  you  in  operating  the  TADS? 

[  ]  Minimally  proficient 

[  ]  Marginally  proficient 
[  ]  Moderately  proficient 
[  ]  Highly  proficient 
[  ]  Extremely  proficient 
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6th  CAVALRY  BRIGADE-AIR  COMBAT  (CBAC) 


PART  C  INSTRUCTIONS:  Part  C  consists  of  questions  that  provide 
information  about  your  personal  opinions  and  preferences.  Answer  each  Kern 
that  applies  to  you  by  checking  in  the  appropriate  bracket  [  V  ]  or  by  printing 
your  answer  in  the  space  provided.  This  information  will  be  treated  as  highly 
confidential;  individual  responses  will  not  be  seen  by  anyone  except  the 
research  staff. 


46.  Which  crew  station  weis  most  difficult  for  you  to  learn  during  the  ACX)? 

[  ]  Front  seat 

[  ]  Back  seat 

[  ]  Both  seats  were  equally  difficult 

47.  At  the  end  of  the  AQC,  in  which  seat  did  you  prefer  to  be  designated  if 
you  had  to  be  assigned  to  only  one  seat? 

[  ]  Front  seat 

[  ]  Back  seat 

[  ]  Both  seats  preferred  equally 

48.  Currently,  in  which  seat  would  you  prefer  to  be  designated  if  you  had  to 
be  assigned  to  only  one  seat? 

[  ]  Front  seat 

[  ]  Back  seat 

[  ]  Either  seat  would  be  preferred  equally 

49.  Rank  order  the  factors  that  you  believe  were  considered  in  making  your 
seat  designation.  (Put  a  *1”  beside  the  most  important,  a  *2"  beside  the 
next  most  important,  etc.  until  all  factors  have  been  ranked.  Put  a  “O” 
beside  any  factors  that  were  not  considered.  Other  than  ‘t),"  do  not  use 
the  same  number  twice.) 

_ Needs  of  the  unit  (front/back  seat  manning  requirements) 

_ Unit  policy  (e.g.,  assign  all  new  personnel  to  front  seat) 

_ Personal  capabilities  in  the  AH-64  as  formally  evaluated  by 

the  unit 

_ Personal  capabilities  in  the  CMS  as  formally  evaluated  by 

the  unit 

_ Personal  capabilities  as  evaluated  during  the  AQC 

_ Personal  preferences 

_ Recommendations  of  unit  aviators  who  knew  my  capabilities 


50. 


How  proficiently  could  you  perform  If  you  were  required  to  occupy  your 
nondesignated  crew  station  in  an  emergency?  (If  you  are  current  in  both 

seats,  indicate  which  seat  you  occupy  least  often: _ ; 

then  rate  your  proficiency  in  that  seat.) 

[  ]  Not  proficient-mission  could  not  be  accomplished 
[  ]  Minimally  proficient 
[  ]  Marginally  proficient 
[  ]  Moderately  proficient 
[  ]  Highly  proficient 
[  ]  Extremely  proficient 

51 .  In  your  opinion,  how  many  hours  of  refresher  training  would  be  required 
for  you  to  attain  RL2  and  RL1  status  in  your  non-designated  seat? 

_ flight  hours  to  RL2  from  RL3 

_ CMS  hours  to  RL2  from  RL3 

_ flight  hours  to  RL1  from  RL2 

_ CMS  hours  to  RL1  from  RL2 

52.  How  adequate  is  your  semiannual  familiarization  training  in  the  opposite 
seat? 

[  ]  Highly  inadequate 
[  ]  Moderately  inadequate 
[  ]  Marginally  inadequate 
[  ]  Marginally  adequate 
[  ]  Moderately  adequate 
[  ]  Highly  adequate 
[  ]  More  than  adequate 

53.  To  operate  effectively  as  an  AH-64  crew,  how  important  is  it  that  you  train 
regularly  with  the  same  crewmember? 

(  ]  Not  at  all  important-the  crew  only  need  to  be  proficient  in  their  own 
seat 

[  ]  Slightly  important-it  is  helpful  to  know  how  the  other  crewmember 
will  perform 

[  ]  Moderately  important-regular  crew  training  facilitates  crew 
coordination 

[  ]  Highly  important-regular  crew  training  may  affect  mission  success 

[  ]  Extremely  important-regular  crew  training  is  critical  to  mission 
success 
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54.  How  often  do  you  verbally  crosscheck  your  crewmate  to  ensure  he  has 
completed  a  prescribed  task  before  you  proceed  with  your  tasks? 

[  ]  Almost  never 
[  ]  Infrequently 
[  ]  Occasionally 
[  ]  Frequently 
[  ]  Almost  always 

55.  Use  the  following  scale  to  rate  the  amount  of  crew  communication  that  is 
required  to  perform  the  mission  segments  that  are  listed  below,  if  the 
crewmembers  have  never  flown  together  before. 


1  2  3  4  5  6  7  S 

I  I  I  I  I  I  I  I 

No  Cr«w  Llttl#  Cr#w  Modorau  Craw  High  Craw 

Communication  Communication  Communication  Communication 


9 

I 


Constant  Craw 
Communication 


a.  _  Preflight  planning  and  checks 

b.  _ Takeoff  and  departure 

c.  _  Enroute  in  contour  flight  (day) 

d.  _  Enroute  in  NOE  flight  (day) 

e.  _  Enroute  in  contour  flight  (night  using  PNVS) 

f.  _  Enroute  in  NOE  flight  (night  using  PNVS) 

g.  _ Target  acquisition  (day) 

h.  _ Target  acquisition  (night) 

i.  _ Target  engagement  (day  using  HELLFIRE) 

j.  _ Target  engagement  (night  using  HELLFIRE) 

k.  _ Target  engagement  (day  using  rockets) 

l.  _ Target  engagement  (night  using  rockets) 

m.  _  Target  engagement  (day  using  30  mm) 

n.  _  Target  engagement  (night  using  30  mm) 
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56.  Use  the  following  scale  to  rate  the  amount  of  crew  communication  that  is 
required  to  perform  the  mission  segments  that  are  listed  below,  if  the 
crewmembers  have  trained  together  as  a  fixed  crew  for  six  months. 


12345678  9 

I  I  I  I  I  I  I  I  I 

No  Craw  LIttIa  Craw  Modarata  Craw  High  Craw  Conatant  Craw 

Communication  Communication  Communication  Communication  Communication 

a.  _ Preflight  planning  and  checks 

b.  _ Takeoff  and  departure 

c.  _ Enroute  In  contour  flight  (day) 

d.  _  Enroute  in  NOE  flight  (day) 

e.  _  Enroute  in  contour  flight  (night  using  PNVS) 

1  _  Enroute  in  NOE  flight  (night  using  PNVS) 

g.  _ Target  acquisition  (day) 

h.  _ Target  acquisition  (night) 

i.  _ Target  engagement  (day  using  HELLFIRE) 

j.  _ Target  engagement  (night  using  HELLFIRE) 

k.  _ Target  engagement  (day  using  rockets) 

l.  _ Target  engagement  (night  using  rockets) 

m.  _ Target  engagement  (day  using  30  mm) 

n.  _ Target  engagement  (night  using  30  mm) 
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57.  Use  the  following  scale  to  rate  the  effectiveness  of  the  CMS  and  CWEPT 
in  training  field  unit  aviators  in  each  seat. 


1 

1 

2 

1 

3 

1 

4 

1 

5 

1 

6 

1 

7 

1 

8 

1 

9 

1 

1 

Not 

Effoctlv* 

1 

1 

Slightly 

Effsetiv* 

1 

1 

Modarattly 

Effaotiv* 

1 

1 

Highly 

Effcetiva 

1 

1 

Extromoiy 

Effoctivo 

a  _ CMS  training  in  the  front  seat 

b.  _ CWEPT  training  in  the  front  seat 

c.  _ CMS  training  in  the  back  seat 

d.  _ CWEPT  training  in  the  back  seat 

58.  How  many  semiannual  flight  hours  do  you  believe  you  would  need  to 
maintain  proficiency  in  the  front  seat? 

_ flight  hours 

_ CMS  hours 

59.  How  many  semiannual  flight  hours  do  you  believe  you  would  need  to 
maintain  proficiency  in  the  back  seat? 

_ flight  hours 

_ CMS  hours 

60.  How  many  semiannual  flight  hours  do  you  believe  you  would  need  to 
maintain  proficiency  in  both  seats  (dual  seat  currency)? 

_ flight  hours 

_ CMS  hours 
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POSTFLIGHT  DEBRIEFING 


AH-64  CMS  POST  FIELDING  TRAINING 
EFFECTIVENESS  ANALYSIS 


The  following  questions  refer  to  the  flight  that  you  have  just  completed  and  should  be  answered 
as  soon  after  the  flight  as  possible.  Read  each  Item  carefully  and  answer  by  checking  [  V  ]  the 
appropriate  box  or  by  writing  in  the  space  provided.  Respond  to  all  questions.  Regardless  of 
the  crew  station  you  occupied,  you  are  to  complete  one  of  these  forms  each  time  you  fly  in  an 
AH-64A  aircraft,  the  Combat  Mission  Simulator  (CMS),  or  the  Cockpit  Weapons  and  Emergency 
Procedural  Trainer  (CWEPT). 

1 .  What  was  the  date  of  this  flight?  _ 

2.  What  is  your  full  name  and  rank? 


What  is  the  other  crewmember’s  full  name  and  rank? 


4.  To  w‘'ich  unit  are  you  assigned?  Circle  the  appropriate  designation. 

Squadron:  1/6  3/6  4/6 

Troop:  HHT  ABC 

5.  Which  crew  station  did  you  occupy  during  this  flight?  i[  ]  Pilot  2[  ]  CPG 

6.  Were  you  the  PC  for  this  flight?  i[  ]  Yes  2[  ]  No 

7.  What  was  the  primary  mission  of  this  flight?  [check  one] 

1  [  ]  Satisfy  requirements  of  individual  aircrew  training  program 

2  [  ]  Satisfy  requirements  of  crew  training  program 

3  [  ]  Battle  drill 

4  [  ]  Border  mission 

5[  ]  Checkride  (specify  type) _ 

6  [  ]  Oilier  (specify) _ 

8.  Did  more  than  one  aircraft  fly  on  this  mission?  i[  ]  Yes  2[  ]  No 

If  yes, 

a.  How  many  OH-58s?  _ 

b.  How  many  AH*64s?  _ 


9.  During  this  flight,  how  much  flight  tlm»  did  you  log?  _ _ hours 

1 0.  During  this  flight,  how  much  flight  time  did  you  log  under  tho  following  flight  conditions? 


a. 

Day 

hours 

d.  Terrain  _ _ 

hours 

b. 

Hood  _ 

hours 

e.  System  _ 

hours 

c. 

Night  _ 

hours 

f.  Weather  _ 

hours 

11.  During  this  flight,  how  much  flight  time  did  you  log  under  the  following  flight  modes: 


a.  Contact 

_  hours 

f.  Low-Level  _ 

..  hours 

b.  Tactics 

hours 

g.  Contour 

hours 

c.  Gunnerv 

_  hours 

h.  Formation  _ 

hours 

d.  NOE 

_  hours 

i.  Admin.  _ 

hours 

e.  Other  (specify) _ 

hours 

12.  Did  you  receive  target  handovers  from  another  aircraft?  i[  ]  Yes  2[  ]  No 

If  yes,  how  many?  _ target  handovers 

1 3.  Was  this  flight  in  the  AH-64.  CMS.  or  CWEPT? 

i[  ]  AH-64 
2[  ]  CMS 
3[  ]  CWEPT 
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15.  In  the  following  table,  document  the  number  of  times  that  you  practiced  specific  gunnery 
tasks  on  this  flight.  In  the  row  for  each  gunnery  task  that  you  practiced,  enter  the  number  of 
times  you  employed  each  (a)  sight  system,  (b)  method  of  range  determination,  (c)  aircraft 
mode,  and  (d)  target  mode.  Include  the  tasks  practiced  by  both  crewmembers  on 
this  flight,  not  just  yourself.  If  neither  crewmemt^r  practiced  a  specific  task,  enter  zero 
across  the  row  so  that  each  block  contains  a  response.  This  table  must  be  completed  every 
time  you  Hy  in  the  AH*64  or  CMS. 


WEAPON 

SYSTEM 


IHADSS 
P  G 


StOHT 

SYSTEM 


TADS 
P  G 


METHOD 


ASCRAFT 

MODE 

TARGET 

MODE 

Hover 

Run¬ 

ning 

Station 

-«y 

Moving 

Rockets 


HELLFIR 

E 


APPENDIX  C 

INSTRUCTOR/OPERATOR  SITUATION  AND 
TARGET  HANDOVER  SHEETS 

INSTRUCTOR/OPERATOR  SITUATION 

REFERENCE :  SPECIAL  MAP,  TODENDORF  1 :50.C00.  REPRODUCTION 

1:100,000 

CONDITIONS:  DAY/PNVS 

DURATION:  1.5  HR 

SEQUENCE  OF  EVENTS: 

(a)  Brief  crew  as  to  the  conduct  of  the  exercise.  Emphasize 
that  weapon  selection  will  be  directed  by  the  Scout 
(Instructor),  which  is  not  the  norm. 

(b)  ARI/lnstructor  will  gather  the  information  on  page _ for 

data  collection  by  crew. 

(c)  Hostility  interrupt  will  be  cn. 

(cl)  Crew  will  conduct  day  mission,  then  conduct  the  same 
mission  under  PNVS. 

(e)  Target  engagements  will  be  moving  targets  from  a  hover, 
stationary  targets  from  a  hover,  and  moving  targets  with 
the  aircraft  running  fire. 

CONDUCT  OF  THE  OPERATION: 

(a)  Initialize  trainer  to  1C,  set  126,  insert  TEE  31 8.  (Stop  all 
movement  of  targets.)  Crew  conducts  boresighting 
(IHADSS  and  TADS),  inserts  doppler,  present  position,  and 
firing  points  1  and  2. 

(b)  Doppler:  PPGS  (Holding  Area)  VK86607202:  Firing 
Position  1  •  VK84537290;  Firing  Position  2  •  VK84217268. 

(c)  Crew  calls  Scout  ready. 

(d)  Move  from  the  holding  area  to  Rring  Position  1 ,  BP  22. 
Give  three  target  nandovers 

(e)  Move  to  Firing  Position  2,  cal!  set. 
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(f)  Move  from  BP  22  on  heading  21 0**  to  grid  8369. 

(g)  Turn  right,  fiy  heading  030'*  to  grid  6576.  Continue  heading 
to  grid  8576. 

(h)  Turn  left  to  heading  21 0®,  return  to  BP  22. 

(i)  Return  to  holding  area. 


« 
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SCENARIO:  TARGET  HANDOVERS 


(A) 

FIRING  POSITION  1 

TGT1 

Type 

B 

2  T-80  Tanks,  Moving  South 

Azimuth 

. 

020° 

Range 

B 

7000  -  5000  m 

Method 

■ 

Hellfire  (LOAL  HI.  LOBL),  CPG,  TADS 

TGT2 

Type 

X 

BMP  Stationary 

Azimuth 

X 

015° 

Range 

X 

4200  m 

Method 

B 

2.75,  COOP,  4  engagements,  1  pair  each 

TGT3 

Type 

s 

ZSU  Stationary 

Azimuth 

X 

010° 

Range 

X 

3900  m 

Method 

= 

30  mm,  CPG,  TADS,  20  rounds 

(B) 

FIRING  POSITION  2 

TGT1 

Type 

X 

T-80  Tanks,  Stationary 

Azimuth 

X 

280° 

Range 

B 

2800  m 

Method 

Hellfire  (LOBL),  CPG,  TADS 

TGT2 

Type 

S 

BMP,  Stationary 

Azimuth 

X 

275° 

Range 

X 

2200  m 

Method 

B 

30  mm,  PLT,  IHADSS,  20  rounds 
(CPG  identify  and  give  handover  to  pilot) 

TGT3 

Type 

X 

BMP,  Stationary 

Azimuth 

X 

220° 

Range 

B 

5800  m 

Method 

= 

2.75,  COOP,  4  engagements,  1  pair  each 

(C) 

TRAVERSING  LOWLAND  ROUTE 

TGT4 

Type 

X 

BMP,  Moving  North 

Azimuth 

X 

315° 

Range 

X 

2500-  15U0 

Method 

B 

30  mm,  CPG,  TADS,  20  rounds 
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TGT5 


Type  »  BTR-60,  Moving  North 
Azimuirt  «  240° 

Range  ■  3000  -  2000  m 
Method  ■  30  mm,  CPG,  TADS,  20  rounds 

(D)  FIRING  POSITION  1 

TGT  6  Type  ■  T-dO  Tank,  Stationary 
Azimuth  «  220° 

Range  -  5000  m 

Method  -  Hellflre  (LOAL),  CPG,  TADS 


